zCJ2x8mfsDqZPH3KEkAX
25.10.2013 13:03:34
Bernd
brauche mal Hilfe und zwar lasse ich durch nachfolgenden Code Verzeichnisse erstellen.
Nun möchte ich den Pfad des neuen Ordners über Inputbox erstellen, wobei der Standard Ordner immer gleich bleibt und zwar D:\Firma\. Die Pfadangaben in der Inputbox sollen z.B. so aussehen, Eingabezeile Inputbox: "Rechnungen\2013\".
Hier mein bisher verwendeter Code:
Sub OrdnerErstellen()
Dim objFSO As Scripting.FileSystemObject
Dim objOrdner As Scripting.folder
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.CreateFolder("D:\Firma\Rechnungen\2013")
End Sub
Gruß
Bernd