VBS schreibt bestimmte Variable nicht in Textdatei
Hallo Community,
kann gut sein das in dem Script ein paar mehr Fehler sind. Mir geht es aber aktuell nur um eins.
Und zwar läuft es gut bis i = 28, dann kommt der Fehler:
Skript: C:\Users\Ich\Desktop\neu.vbs
Zeile: 15
Zeichen: 1
Fehler: Ungültiger Prozeduraufruf oder ungültiges Argument
Code: 800A0005
Quelle: Laufzeitfehler in Microsoft VBScript
strValue macht hier das Problem, nehme ich es weg geht es bis zum Ende durch.
In strValue steht bei i = 28, 191 kBit/s
Wenn ich i = 28 überspringe läuft er bei i = 246 auf Fehler, da steht in strValue 22%
Überspringe ich auch das läuft er bei i = 303 auf Fehler, diesmal ist strValue 1736 kBit/s
(Überspringen tue ich mit: )
Wenn ich anstatt
objFile.WriteLine i & " " & strHeader& "__________________" & strValue
das hier
Wscript.echo i & " " & strHeader& "__________________" & strValue
nehme klappt alles und er gibt mit alles einzeln aus.
Ich brauche es aber in einer Textdatei.
Hier nun der Code
Hoffe das Thema passt zur Frage
Grüße
Sascha
kann gut sein das in dem Script ein paar mehr Fehler sind. Mir geht es aber aktuell nur um eins.
Und zwar läuft es gut bis i = 28, dann kommt der Fehler:
Skript: C:\Users\Ich\Desktop\neu.vbs
Zeile: 15
Zeichen: 1
Fehler: Ungültiger Prozeduraufruf oder ungültiges Argument
Code: 800A0005
Quelle: Laufzeitfehler in Microsoft VBScript
strValue macht hier das Problem, nehme ich es weg geht es bis zum Ende durch.
In strValue steht bei i = 28, 191 kBit/s
Wenn ich i = 28 überspringe läuft er bei i = 246 auf Fehler, da steht in strValue 22%
Überspringe ich auch das läuft er bei i = 303 auf Fehler, diesmal ist strValue 1736 kBit/s
(Überspringen tue ich mit: )
if i = 28 then
i = i + 1
end if
Wenn ich anstatt
objFile.WriteLine i & " " & strHeader& "__________________" & strValue
das hier
Wscript.echo i & " " & strHeader& "__________________" & strValue
nehme klappt alles und er gibt mit alles einzeln aus.
Ich brauche es aber in einer Textdatei.
Hier nun der Code
Set objShell = CreateObject("Shell.Application")
Dim objFSO, objFile
Const ForWriting = 2
Const Create = true
Set objFolder = objShell.NameSpace("C:\Users\Ich\Desktop")
Set objFolderItem = objFolder.ParseName("Big Buck Bunny.mp4")
Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\Ich\Desktop\test.txt", ForWriting, Create)
for i = 0 to 308
strHeader = objFolder.GetDetailsOf(objFolder.Items, i)
strValue = objFolder.GetDetailsOf(objFolderItem, i)
objFile.WriteLine i & " " & strHeader& "__________________" & strValue
next
Wscript.Echo "Fertig"
Hoffe das Thema passt zur Frage
Grüße
Sascha
Please also mark the comments that contributed to the solution of the article
Content-Key: 303094
Url: https://administrator.de/contentid/303094
Printed on: April 26, 2024 at 14:04 o'clock
11 Comments
Latest comment
Hallo Sascha!
Versuch es so:
Gruß Dieter
Versuch es so:
strValue = objFolder.GetDetailsOf(objFolderItem, i)
strValue = Replace(strValue, ChrW(8206),"")
objFile.WriteLine i & " " & strHeader & "__________________" & strValue
Gruß Dieter