Du könntest jetzt noch versuchen zu entschlacken:
Das hier:
' Funktion zum Prüfen ob eine Datei vorhanden ist
Public Function DateiVorhanden(strDatei As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strDatei) = True Then
DateiVorhanden = True
Else
DateiVorhanden = False
End If
Set objFSO = Nothing
End Function
Könnte man ggf so:
' Funktion zum Prüfen ob eine Datei vorhanden ist
Public Function DateiVorhanden(strDatei As String)
DateiVorhanden = CreateObject("Scripting.FileSystemObject").FileExists(strDatei)
End Function
DIe Methode .FileExists gibt ohnehin TRUE|FALSE zurück. Warum dann nicht gleich zuweisen.
Prüfen, ob Datei vorhanden und dann killen, könnte man doch weglassen indem man direkt überschreibt.
Könnte doch wie folgt funktionieren:
SHELL ..."cmd /k cscript ... > Dateiname"
|