eatsen
04.03.2009, 20:48
Moin, ich brauch mal hilfe. Ich habe versucht anhand einer vb6-Melting funktion, das in net zu verwirklichen. wenn ich das folgende habe geht es nicht. Aber ersetzte ich "Application.ExecutablePath" mit einem normalen Pfad z.B "C:\melt.exe" geht das ganze.
If File.Exists(Environ("tmp") & "/del.bat") Then
Kill(Environ("tmp") & "/del.bat")
End If
Dim Meltwriter As New StreamWriter(Environ("tmp") & "/del.bat")
Meltwriter.WriteLine("@echo off")
Meltwriter.WriteLine("sleep 500")
Meltwriter.WriteLine("del " & Application.ExecutablePath)
Meltwriter.WriteLine("del " & Environ("tmp") & "/del.bat")
Meltwriter.Close()
Process.Start(Environ("temp") & "/del.bat", AppWinStyle.Hide)
Me.Close()
Wo liegt der fehler? kann mir jemand helfen?
If File.Exists(Environ("tmp") & "/del.bat") Then
Kill(Environ("tmp") & "/del.bat")
End If
Dim Meltwriter As New StreamWriter(Environ("tmp") & "/del.bat")
Meltwriter.WriteLine("@echo off")
Meltwriter.WriteLine("sleep 500")
Meltwriter.WriteLine("del " & Application.ExecutablePath)
Meltwriter.WriteLine("del " & Environ("tmp") & "/del.bat")
Meltwriter.Close()
Process.Start(Environ("temp") & "/del.bat", AppWinStyle.Hide)
Me.Close()
Wo liegt der fehler? kann mir jemand helfen?