How to 'Release' a Directory 1

[dRahme]

Hello, I have a small procedure that checks for the existance of a drive and directory:

Dim objfso As New FileSystemObject
If objfso.DriveExists("s:") Then
If Dir("s:\Warranty\", vbDirectory) = "" Then

Me.lblSdrive.Caption = "No Warranty Directory Installed on S Drive"
Me.cmdCreateWarrantyS.Visible = True

Else
Me.lblSdrive.Caption = "Warranty Directory is Installed on S Drive"

End If
Else
Me.lblSdrive.Caption = "No 'S' Drive Found."

End If

If I back out try to delete this directory manually, I recieve an error that says the file is in use and cannot be deleted.

If I terminate the Access application I can delete the directory.

How do I 'Release' the directory so that it can be deleted?

I thought it might be akin to

set objfso = nothing

but that is not quite it.

Thanks, dRahme

 

[StarPassing]

You do need a 'Set objfso = Nothing'. But that will not release the directory. Point the function DIR to somewhere else like Dir("C").Then delete the directory.

 

[dRahme]

That was it.

Thank You,

dRahme