Hi Martin
Ich glaube du suchst sowas.
CreateTree("c:\temp\Mache\Irgendeine\OrdnerStruktur")
Function CreateTree(tSpec)
Dim fs, nf, idx
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
idx = Instr(tSpec, "\")
Do
idx = Instr(idx + 1, tSpec, "\")
If idx = 0 Then
nf = tSpec
else
nf = Left(tspec, idx - 1)
End If
If Not fs.FolderExists(nf) Then fs.CreateFolder(nf)
Loop while idx
CreateTree = fs.FolderExists(tspec)
Set fs = Nothing
End Function
Viele Gr�sse Ivo Looser
> -----Original Message-----
> From: Martin Huber [mailto:[EMAIL PROTECTED]]
> Sent: Freitag, 19. Juli 2002 08:32
> To: AspGerman Kaffeehaus
> Subject: [aspdecoffeehouse] Ordner erstellen
>
>
> Morgen Liste,
>
> Wie kann ich am einfachsten verschachtelte Ordner erstellen
> so nach dem Muster:
>
> erster Ordner zb heisst Ordner1 -> darin soll Ordner2
> entstehen -> darin wieder Ordner3
>
> also max drei Ordner
>
> FSO ist mir schon klar und einzeln is auch kein Problem nur
> fehlt mir jetzt der L�sungsansatz das alles in eine Funktion
> zu verpacken
>
> danke schon mal
>
> mfg
>
> Martin
> --------------------------------------------------------------------
>
> iiad.net intranet/internet application development
> A-6380 St.Johann in Tirol, Mitterndorf 1, �sterreich
> Tel: +43 664 2118681 Fax:+43 5352 64199
> --------------------------------------------------------------------
>
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ =
> Listenarchiv Sie
> | k�nnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anme> lden/aspdecoffeehouse.as
> | p
>
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
