IfDirExistFso

Public Function IsDirExist(ByVal strPathName As String) As Boolean
'Determinare se esiste una directory

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
IsDirExist = fs.FolderExists(strPathName)
Set fs = Nothing
End Function