Zur Erläuterung, ich habe Aufträge, welche ich gerne per Makro in den Ordner abspeichern würde, welche der Kundennr. des Auftrages entspricht. D.h. der Auftrag vom Kunden 1003 in den Ordner C:/Auftraege/1003/ usw.
Besten Dank
Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Sub Pfad_anlegen()
MakeSureDirectoryPathExists "C:\K\R\o\l\a\"
End Sub
Gruß K.Rola
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Sub Pfad_anlegen()
'Ist das Verzeichnis nicht wie angegeben vorhanden, wird es angelegt.
MakeSureDirectoryPathExists "C:\temp\test\test\test\"
End Sub