Pfad = "Z:\Ordner\Temp\"
Pfad_Q = Pfad & "Unterordner\"
Set
oFSO = CreateObject(
"Scripting.FileSystemObject"
)
Laufwerk = Mid(Pfad, 1, 2)
For
Each
oDrive
In
oFSO.Drives
If
oDrive = Laufwerk
Then
GL =
True
End
If
Next
If
GL
Then
If
Not
oFSO.FolderExists(Pfad)
Then
MsgBox Pfad &
" ist nicht vorhanden"
Else
MsgBox
" Pfad "
& Pfad &
" ist Vorhanden"
If
Not
oFSO.FolderExists(Pfad_Q)
Then
MsgBox
" Ordner "
& Pfad_Q &
" existiert nicht! Wird erstellt"
On
Error
Resume
Next
If
oFSO.CreateFolder(Pfad_Q)
Then
MsgBox
" Ordner "
& Pfad_Q &
" wurde korrekt erstellt!"
Else
MsgBox
" Ordner "
& Pfad_Q &
" wurde NICHT erstellt"
End
If
Else
MsgBox
" Ordner "
& Pfad_Q &
" existiert"
End
If
End
If