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 |