|
Hallo,
MKDIR legt nur einem neuen (Unter-)ordner an, aufbauend auf einen bestehenden Ordnerpfadund keinen kompletten Pfad
Vorher muss geprüft werden, ob der neuePfad schon exitiert, sonst kommt eine Fehlermeldung.
Du könntest den u.a. code (Beispiel) einsetzen und diesem einen kompletten, neu anzulegenden Pfad übergeben.
Es gibt keine Fehlermeldung wenn der Pfad schon exitiert und es kann ein ganzer Ordnerpfad neu erstellt werden..
Vielleicht wäre das eine Alternative und hilft Dir.
Code:
1
2
3
4
5
6
7
8
9 |
|
Private Declare PtrSafe Function SHCreateDirectoryExW Lib "Shell32.dll" ( _
ByVal hwnd As LongPtr, ByVal pszPath As LongPtr, ByVal psa As LongPtr) As Long
Sub ErstelleOrdner()
Dim sPfad As String
sPfad = Range("C8").Value & "\"
SHCreateDirectoryExW 0, StrPtr(sPfad), 0
End Sub
|
_________
viele Grüße
Karl-Heinz
Gruß Karl-Heinz
|