1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
|
Dim OrdnerName, fso, ordner
OrdnerName = "löschmich"
Set fso = CreateObjec ("Scripting.FileSystemObject")
if not fso.FolderExists(OrdnerName) Then
Set ordner = fso.CreateFolder(OrdnerName)
MsgBox "Ordner " & ordner.Path & " erstellt"
else
Set ordner = fso.GetFolder(OrdnerName)
MsgBox "Fehler: Ordner " & ordner.Path & " existiert bereits"
End If
Set fso = nothing
Set ordner = nothing
|