Do Loop Schleife verlassen und wieder zurück

[Ernst3 10]

Hallo

 

Ich möchte eine Do Loop schleife verlassen und wenn der Auftrag abgeschlossen ist dort weiter machen wo er raus gegangen ist.

Wer kann mir einen Tip geben?

 

Do Until WScript.StdIn.AtEndOfStream

 

strgelesen = WScript.StdIn.ReadLine

 

Set objshell = CreateObject("WScript.Shell")

MsgBox "txt_lesen & " & strgelesen

 

dateipfad = "F:\Buero\Zeichnungen\3D\"

datei = strgelesen & ".pdf"

Set fso = CreateObject("scripting.FilesystemObject")

ok = fso.fileExists(dateipfad)

 

listadriv

 

Loop

 

Bei listadriv verlasse ich die Schleife damit er die Erste Datei finden kann.

Wenn er sie dann gefunden hat und seine Arbeit getan hat (die Sub Function) dann möchte ich das er direkt unter listadriv wieder einsteigt damit er dann in der Schleife weiter arbeiten kann.

 

Hoffe ich habe mich da verständlich ausgedrückt.

Sinn ist es , das er eine Textdatei auslesen soll, Zeile für Zeile und die dort angegeben Datei dann auf dem Serverlaufwerk suchen soll, dann in ein Verzeichnis kopieren und die Nächste Zeile aus lesen um das ganze solange laufen zulassen bis er sie ausgelesen hat.

 

Mfg

 

Ernst

[blub 115]

Hallo Ernst,

ich glaube, mit dem "do loop" Konstrukt wirst du nicht glücklich.

Sieh dir mal das Skript 17.2 hier an

Microsoft Windows 2000 Scripting Guide - Using a Text File as a Command-Line Argument

 

Hier wird von Zeile 7 bis 11 ein Textfile Zeile für Zeile in ein Dictionary-Objekt eingelesen, und in der anschliessenden "for each - next" schleife jede einzelne Zeile verarbeitet.

Da ist das Einlesen der Textdatei und die Verarbeitung der Zeilen voneinander entzerrt und nicht in einer "do loop" Schleife verwurstelt.

 

cu

blub

[Ernst3 10]

Hallo Blub,

schönen dank für den Link,

 

der hat mich wieder ein Stück weitergebracht.

 

Schönen Sonntag noch

Marko