FindPathFSO

Private Sub Command1_Click()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists("c:\fsoDemo") Then
MsgBox "Path trovata!"
Else
NewPath$ = fso.buildpath("c:\", "fsoDemo")
Set fld = fso.createfolder(NewPath$)
MsgBox "Path creata"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set fso = Nothing
End Sub