Ordner per Skript anlegen

[darkman203 10]

Hallo zusammen,

ich möchte per .vbs Skript Ordner auf einem W3K Server erstellen.

 

Wenn ich es soo mache funkt es:

 

 

set fs = CreateObject("Scripting.FileSystemObject")

 

 

set folder = fs.createfolder("d:\Profile")

 

 

set folder = fs.createfolder("d:\Profile\testordner1")

 

set folder = fs.createfolder("d:\Profile\testordner2")

 

 

 

Wenn ich es aber so mache meckert er immer Datei bereits vorhanden

 

 

set fs = CreateObject("Scripting.FileSystemObject")

set folder = fs.createfolder("d:\Profile")

 

OrdnerAnlegen 'Sub aufrufen um Ordner zu erstellen

 

 

Sub OrdnerAnlegen()

Dim fso, f, Zeile, Feld

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile ("user.txt",1,0)

 

Do while not f.AtEndOfLine

Zeile = f.readLine

Feld = split(Zeile,",")

 

Benutzer = Feld(0) 'Der Login Name

set folder = fs.createfolder("d:\Profile\") & Benutzer 'Hier meckert er Datei bereits vorhanden

Loop

f.Close

 

End Sub

 

 

Es scheint also an der Schleife zu liegen oder das & wird nicht erkannt.

Hoffe jemand kann weiterhelfen!

[thorgood 10]

Versuchs so

 

set folder = fs.createfolder("d:\Profile\" & Benutzer)

 

thorgood