Anfürsich müsstest du FileSystemObjects (FSO) verwenden , damit sollte es ganz gut gehen. Dieser Code dazu sollte auch gehen:
Zitat:
' In Modul
' Verweis auf das FileSystemObject
Public oFSO As New FileSystemObject
' Existenz eines Laufwerks prüfen
Dim bDriveExists As Boolean
bDriveExists = oFSO.DriveExists("\\Server\F:")
' Existenz eines Ordners prüfen
Dim bFolderExists As Boolean
bFolderExists = oFSO.FolderExists("\\Server\F:\temp")
' Existiert der Ordner?
If Not oFSO.FolderExists("\\Server\F:\temp") Then
' Nein! Jetzt erstellen...
If oFSO.CreateFolder("\\Server\F:\temp") Then
' Ordner wurde korrekt erstellt!
End If
End If
|