Private Sub Command1_Click()
Dim Fso As Object
Dim File As Object
Set Fso = CreateObject("FilesyStemObject")
Fso.DeleteFile "c:\file\file.exe"
End Sub
Dim Fso As Object
Dim File As Object
Set Fso = CreateObject("FilesyStemObject")
Fso.DeleteFile "c:\file\file.exe"
End Sub
不过不能创建对象大概是你的vb最好要升级了。