"Touching" folder with vba leaves the folder locked. How to "unlock" folder after use?

[OaklandJim]

I have a sub that for starters merely looks to see whether a folder exists using simple "FolderExists" function below. After doing that the folder and subfolders are "locked." Excel gives file/path access error and windows sez file in use if try to do anything to the folder. How do I free up the folder and its contents after doing this?

Function FolderExists(FolderPath As String) As Boolean
     FolderExists = True
     On Error Resume Next
     ChDir FolderPath
     If Err <> 0 Then FolderExists = False
     On Error GoTo 0
End Function

 

[AlphaFrog]

Try this...

Function FolderExists(FolderPath As String) As Boolean
     FolderExists = Dir(FolderPath, vbDirectory) <> ""
End Function

or use this in your regular code

     If Dir(FolderPath, vbDirectory) <> "" Then
        'folder exists
     Else
        'folder doesn't exist
     End If

 

[OaklandJim]

Fantastic. SOLVED