VB Script stürzt nach gewisser Zeit ab (nicht genügend Arbeitsspeicher - fso.CopyFile)
Ich habe unten angehängtes VB Script erstellt. Der Zweck des Scripts ist, die Daten (7 Files, max 20Kb total) alle 60 Sekunden vom Ordner "uno" nach "due" zu kopieren. Jetzt zum Problem: nach ca 1 Tag stürzt das Script ab mit dem Fehler "nicht genügend Arbeitsspeicher: fso.CopyFile". Wenn ich aber im Taskmanager schaue, braucht das Script höchstens zwischen 5-7MB Ram - mehr nicht (der PC ist sonst idle). Wenn ich die Dauer von 60 Sekunden testeshalber auf 1 Millisekunde stelle, dauert es etwa 20 Sekunden bis zum Absturz. Hat jemand eine Idee an was es liegen könnte?
Option Explicit
Dim fso, Source, Target, Frage, Info
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Source = "Z:\VBS\Move\uno\*"
Target = "Z:\VBS\Move\due"
Frage = MsgBox("Abgleich starten?", vbQuestion + vbYesNo, "Abgleich starten?")
If Frage= vbYes Then
Call Copy
else
Call No
End if
Sub Copy
'Info = MsgBox("Daten werden kopiert", vbInformation, "Info")
fso.CopyFile Source, Target
wscript.sleep 60000
Call Copy
End Sub
Sub No
Wscript.Quit
End Sub
Dim fso, Source, Target, Frage, Info
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Source = "Z:\VBS\Move\uno\*"
Target = "Z:\VBS\Move\due"
Frage = MsgBox("Abgleich starten?", vbQuestion + vbYesNo, "Abgleich starten?")
If Frage= vbYes Then
Call Copy
else
Call No
End if
Sub Copy
'Info = MsgBox("Daten werden kopiert", vbInformation, "Info")
fso.CopyFile Source, Target
wscript.sleep 60000
Call Copy
End Sub
Sub No
Wscript.Quit
End Sub
Please also mark the comments that contributed to the solution of the article
Content-Key: 111879
Url: https://administrator.de/contentid/111879
Printed on: April 24, 2024 at 23:04 o'clock
2 Comments
Latest comment