|
Hallo Yan,
alternativ zum vorhergenden Vorschlag.
Die API-Funktion erstellt einen kompletten Pfad, unabhängig davon, ob es ihn schon gibt oder Teile davon existieren.
Man kann sich als Rückgabe auftretende Fehler ausgeben lassen und entsprechend reagieren. Das habe ich hier nicht gemacht, denn wenn es den Ordner schon gibt, wird das ohne Fehlerausgabe einfach übergangen.
Deine Daten in Excel sind mir jetzt unbekannt, aber vielleicht hilft Dir dieser noch einfache Denkanstoß ja schon weiter.
Code:
01
02
03
04
05
06
07
08
09
10
11 |
|
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
For iZeile = 1 To 10
sPfad = Cells(iZeile, "A").Value & "\"
SHCreateDirectoryExW 0, StrPtr(sPfad), 0
Next iZeile
End Sub
|
_________
viele Grüße
Karl-Heinz
|