用Kill也可以达到这个效果deletefile，只是这样就不会去回收站了。
Private Sub Command1_Click()
Kill App.Path & \"\\a.exe\"
End Sub
Public Declare Function DeleteFile Lib \"kernel32\" Alias \"D……...
deletefile(deletefile是什么意思)
如果只是用于删除的话，建议使用批处理吧deletefile。。方便快捷。
function DoRemoveDir(sDirName:String):Boolean;
var
hFindFile:Cardinal;
tfile:String;
sCurDir:String;
bEmptyDir:Boolean;……...