Bueno pues mi aplicación digamos que al abrirla se instala en un path, y quiero que se me borre el lugar de donde se ejecuta si no es el path que debe ser:
Dim mAssembly As System.Reflection.Assembly
mAssembly = System.Reflection.Assembly.GetExecutingAssembly
Dim FileNo As Integer = FileSystem.FreeFile()
FileSystem.FileOpen(FileNo, "test.bat", OpenMode.Binary)
'FileSystem.FilePut(FileNo, "ping 1.1.1.1 -n 1 -w 1000" & vbCrLf)
FileSystem.FilePut(FileNo, "Erase " & Chr(34) & mAssembly.Location & Chr(34) & vbCrLf)
FileSystem.FilePut(FileNo, "Erase " & Chr(34) & "test.bat" & Chr(34) & vbCrLf)
FileClose(FileNo)
Shell("test.bat", AppWinStyle.Hide)
End
Lo del ping es la chapuza. Lo he puesto para que le dé a la aplicación tiempo de borrarse porque sino al ejecutar el bat no le ha dao tiempo a cerrarse y no borra la aplicación. ¿Hay alguna otra manera mejor de ganar tiempo o de hacer ésto que intento?