Hallo ,
ich habe folgendes Problem . Ich möchte ein Script schreiben was den Inhalt einer Textdatei liest und dann pro Zeile dieser Textdatei einen Ordner erstellt . Heißt ich habe eine txt Datei wo drin steht
hallo
hallo1
hallo 2
Dann möchte ich diese drei Namen jeweils als Ordner haben .
Bisher habe ich dies so
Würde mich über Hilfe freuen
Mfg Tazzo
Edit by Dodo:
Wenn es VBS ist, dann bitte auch nächstes Mal ins richtige Forum
-> Topic verschoben (Grundlagen -> VBS)
ich habe folgendes Problem . Ich möchte ein Script schreiben was den Inhalt einer Textdatei liest und dann pro Zeile dieser Textdatei einen Ordner erstellt . Heißt ich habe eine txt Datei wo drin steht
hallo
hallo1
hallo 2
Dann möchte ich diese drei Namen jeweils als Ordner haben .
Bisher habe ich dies so
Option Explicit
Dim FSO, DateiInhalt, Zeile, Inhalt
Const Dateiname="hallo.txt"
Set FSO = CreateObject ("Scripting.FileSystemObject")
If FSO.FileExists(Dateiname) Then
Set DateiInhalt = FSO.OpenTextFile(Dateiname)
Do Until DateiInhalt.atEndOfStream
Zeile = DateiInhalt.ReadLine
Inhalt=Inhalt + Zeile + vbcrlf
Loop
DateiInhalt.Close
WScript.Echo Inhalt
FSO.CreateFolder & Inhalt &
Else
Wscript.Echo "Datei " & Dateiname & " nicht gefunden!"
End If
Würde mich über Hilfe freuen
Mfg Tazzo
Edit by Dodo:
Wenn es VBS ist, dann bitte auch nächstes Mal ins richtige Forum
-> Topic verschoben (Grundlagen -> VBS)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dodo“ ()