Skripting Help

[Kr99 11]

Hallo Zusammen,

 

ich bräuchte ein klein wenig hilfe bei einem Skript.

 

In einer TXT Datei stehen verschiedene Netzwerkpfade zu Dateien und Verzeichnissen z.B. ("\\Server1\data\info.vsd").

Nun möchte ich ein Skript schreiben das mir diese TXT Datei ausliest und die Dateien, vzw die Verzeichnisse an einen vorgegebenen Zielort hinkopiert.

 

Hat jemand eine Idee? (Oder gibt es sowas schon irgendwo)?

 

mfg

 

Kr99

[Grenzer 10]

Hi,

 

nur mal so auf die schnelle wie du eine Datei in ein Array Zeilenweise einlesen kannst.

probier den rest doch mal selbst, wenn du nicht weiter kommst helf ich natürlich gerne weiter!!

 

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

 

Datei = "C:\Temp\Ziel.txt" ' Pfad zur Datei

 

 

Set FileIn = FSO.OpenTextFile(Datei, 1, true) ' Datei zum Lesen öffnen

i=0

Do While Not (FileIn.atEndOfStream) ' wenn Datei nicht zu ende ist, weiter machen

i = i + 1

ReDim Preserve Zeile(i)

Zeile(i) = FileIn.Readline

Loop

 

If i < 1 Then

ReDim Preserve Zeile(i)

Zeile(i) = "Leerdatei"

End If

Set FileIn = Nothing

 

 

 

for i = 1 to UBound( Zeile )

 

MsgBox Zeile(i) 'Zeilenweise ausgabe der Datei

 

next

 

muss aber los jetzt

tschau