Hello,
If I run this code:
Public Function Check_Directory(DirName As String) As Boolean
Check_Directory = False
If Dir(DirName) <> "" Then
Check_Directory = True
End If
End Function
Then it locks the directory (one listed as DirName) so that I cannot rename it...