AW: Befehle in .bat einfügen und ausführen
07.10.2021 13:10:18
volti
Hallo Udo,
wenn Du Ordner anhand einer Liste anlegen möchtest, ist es m.E. am einfachsten, z.B. u.a. API-Funktion einzusetzen.
Hierbei wird im Gegensatz zu MKDIR nicht nur der entsprechende Unterordner angelegt, sondern der komplette Pfad.
Der zurückgegebene Fehlerwert (habe ich hier nicht gemacht) kann einfach ausgewertet werden und es kommt zu keinem Fehler, wenn es den Pfad schon gibt.
Teste mal...
Code:
[Cc]
Option Explicit
Private Declare PtrSafe Function SHCreateDirectoryExW Lib "shell32" ( _
ByVal hwnd As LongPtr, ByVal pszPath As LongPtr, _
ByVal psa As LongPtr) As Long
Sub Ordner_AnlegenLtListe()
' Legt komplette Pfade laut Liste an
Dim iZeile As Long
For iZeile = 1 To ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
SHCreateDirectoryExW 0&, StrPtr(Cells(iZeile, "A").Value), 0&
Next iZeile
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz