Probleme mit mehrfachausführung von Schleifen
Hallo, ich habe folgendes Problem.
Ich möchte gerne folgende Funktion ausführen.
handle -p uTotalmedia m2ts
und diese in eine Textdatei schreiben.
Nun bin ich soweit das ich das auch mit folgendem Code hinbekomme.
So nun würde ich gerne diese Funktion mehrmals hintereinander ausführen und zwar in dem ich eine MessageBox öffne und dort entweder Ja für wiederholen oder Nein für beenden drücke.
Nun habe ich etwas probiert leider bekomme ich es nicht hin das ich die Funktion mehrmals ausführen kann.
Ich habe sowas in der Art versucht leider ohne Erfolg.
Ich hoffe mir kann jemand bei meinem kleinen Problem helfen.
Gruß
Ich möchte gerne folgende Funktion ausführen.
handle -p uTotalmedia m2ts
und diese in eine Textdatei schreiben.
Nun bin ich soweit das ich das auch mit folgendem Code hinbekomme.
Dim fso
Dim ObjExec
Dim strFromProc
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set f = fso.OpenTextFile("C:\log.txt", 8)
Set objShell = WScript.CreateObject("WScript.Shell")
Set ObjExec = objShell.Exec("handle -p utotalMedia m2ts")
Do
strFromProc = ObjExec.StdOut.ReadLine()
f.writeline strFromProc
Loop While Not ObjExec.Stdout.atEndOfStream
So nun würde ich gerne diese Funktion mehrmals hintereinander ausführen und zwar in dem ich eine MessageBox öffne und dort entweder Ja für wiederholen oder Nein für beenden drücke.
Nun habe ich etwas probiert leider bekomme ich es nicht hin das ich die Funktion mehrmals ausführen kann.
Ich habe sowas in der Art versucht leider ohne Erfolg.
Do Until CheckMessage = vbNo
CheckMessage = MsgBox("Click no to close this. Click yes for it to come again.", vbYesNo)
Do while not objExec.StdOut.AtEndOfStream
strFromProc = ObjExec.StdOut.ReadLine()
f.writeline strFromProc
f.WriteBlankLines(1)
Loop
Loop
Ich hoffe mir kann jemand bei meinem kleinen Problem helfen.
Gruß
Please also mark the comments that contributed to the solution of the article
Content-Key: 298206
Url: https://administrator.de/contentid/298206
Printed on: April 25, 2024 at 12:04 o'clock
2 Comments
Latest comment
Moin,
guckst du hier eine mögliche Variante:
Gruß jodel32
guckst du hier eine mögliche Variante:
'Variablen
Dim file
'Objekte initialisieren
Set fso = CreateObject("Scripting.Filesystemobject")
Set objShell = CreateObject("WScript.Shell")
'Sub für die spätere Wiederholung erstellen
Sub MyProg(f)
With objShell.Exec("handle -p utotalMedia m2ts")
Do
f.writeline .StdOut.ReadLine()
Loop While Not .Stdout.AtEndOfStream
End With
End Sub
'Ausgabedatei öffnen
Set file = fso.OpenTextFile("C:\log.txt", 8, True)
'Loop des Sub so lange bis der Dialog mit "Nein" bestätigt wird
While MsgBox("Click no to close this. Click yes for it to come again", vbYesNo) = vbYes
MyProg file
Wend
'Asgabedatei schließen
file.Close