Unterordner per VBA erstellen

31/01/2009 - 00:58 von Tinu Kiefer | Report spam
Hallo!

Ein Ordner enthàlt 150 Unterordner . Nun will ich in jeden einen
Unterordner "2009"
erstellen, wenn bereits einige solche vorhanden sind.

Wie kann ich das per VBA lösen?

Besten Dank

Tinu Kiefer
 

Lesen sie die antworten

#1 Michael Franke
31/01/2009 - 10:06 | Warnen spam
Hallo Tinu,

On 31 Jan., 00:58, Tinu Kiefer wrote:
Hallo!

Ein Ordner enthàlt 150 Unterordner . Nun will ich in jeden einen
Unterordner "2009"
erstellen, wenn bereits einige solche vorhanden sind.

 Wie kann ich das per VBA lösen?

Besten Dank

Tinu Kiefer



was bedeutet "wenn bereits einige solche vorhanden sind"? Am besten
sind konkrete Beispiele, in welchem Fall ein Unterordner erstellt
werden soll und in welchem Fall eben nicht. Vielleicht kannst Du Dein
Problem mit der folgenden Prozedur schon alleine lösen:

Sub VerzeichnisErstellen()
Dim Verzeichnis As String
Dim Ordner As String
Verzeichnis = "DeinPfadMitBackslash"
Ordner = "NameNeuerOrdner"
On Error GoTo fehler1
ChDir Verzeichnis
On Error GoTo fehler2
MkDir Ordner
Exit Sub
fehler1:
MsgBox "Verzeichnis '" & Verzeichnis & "' nicht gefunden !"
Exit Sub
fehler2:
MsgBox "Der Ordner '" & Ordner & "' existiert bereits !"
Exit Sub
End Sub

Gruß, Michael

Ähnliche fragen