[求助]：一个vb编的exe程序运行结束后，如何能将自身删除？

god

一个vb编的exe程序运行结束后，如何能将自身删除？

雪山飞狐(lzh)

Private Sub Form_Unload(Cancel As Integer)
Dim fso As New FileSystemObject
Dim ts As TextStream
Path = App.Path
If Right(Path, 1) <> "\" Then Path = Path & "\"
Path = Path & App.EXEName & ".exe"
Set ts = fso.CreateTextFile("c:\2.bat")
ts.Write "del " & Path & vbCrLf & "del c:\2.bat"
ts.Close
Shell "c:\2.bat"
End Sub

god

用批命令，有创意。
只是这个方法有个缺点，如果exe文件路径中有空格，就删不掉，dos命令不支持这种文件名。

雪山飞狐(lzh)

好象有办法获取短文件名，一时找不到,:)

god

也可以自己编一个删除程序代替del命令，不过用vb来编，程序体积会比较大

atf8888

我感觉2楼的方法好

gdzhou

在输出成批处理的时候加入双引号啊
dim s as string
dim nline as string
s="1"
ts.write s
open "c:\2.bat" for input as #1
line input #1,nline
s=left(nline,1)
close #1
ts.Write "del " & s & Path & s & vbCrLf & "del c:\2.bat"

god

7楼的方法太精妙了，没看懂
s="1"和s=left(nline,1)
在代码里起到什么作用呢？

雪山飞狐(lzh)

Private Sub Form_Unload(Cancel As Integer)
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim str As String
Dim apppath As String
apppath = App.Path
If Right(apppath, 1) <> "\" Then apppath = apppath & "\"
Set ts = fso.CreateTextFile(apppath & "tlsdel.bat")
str = fso.GetDriveName(apppath) & vbCrLf
str = str & "cd " & apppath & vbCrLf
str = str & "del " & App.EXEName & ".exe" & vbCrLf
str = str & "del tlsdel.bat"
ts.Write str
ts.Close
Shell "tlsdel.bat"
End Sub

god

这个方法不错。斑竹研究得够深的。
FileSystemObject确实有不少实用功能，不过为什么它不提供长路径名功能呢？

雪山飞狐(lzh)

FileSystemObject不提供长路径名功能?
没这回事吧

god

不好意思，没研究透

再请教一下。
GetSpecialFolder(TemporaryFolder)得到的是短路径名，是什么参数控制得到短的或长的文件名？

雪山飞狐(lzh)

Folder有两个属性：ShortPath和Path，应该是对应短路径名和路径名，但是我调试的结果都是短路径名，有点不理解，不过不影响使用

god

我以前也试过，结果一样，得不到长文件名

gdzhou

直接在form_unload中写中kill me
行不行？？？