title image


Smiley So gehts
Trage in den Bereich der den Löschforgang starten soll folgendes ein:Dim Pfad As String, d As IntegerPfad = App.PathIf Not Right(Pfad, 1) = "\" Then Pfad = Pfad & "\"d = FreeFileOpen Pfad & "kill.bat" For Output As #d Print #d, "c:" Print #d, "cd \" Print #d, "dir" Print #d, "del " & Pfad & App.EXEName & ".exe" Print #d, "del " & Pfad & "kill.bat"CloseCall Shell("command.com /C " & Pfad & "kill.bat", vbHide)EndBemerkung:der Dir aufruf auf Laufwerk C dient als kleine Pausedamit deine Anwendung geügent Zeit hat sich zubeendenTschüssC.G.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: