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 |