VB删除文件简单的问题

来源:百度知道 编辑:UC知道 时间:2024/07/07 20:38:16
Private Sub Command1_Click()
If Dir("a.exe") = "" Then MsgBox "请放到游戏文件夹"
i = MsgBox("确认删除文件吗?", vbOKCancel, "删除")
If i = 1 Then Kill ("a.exe")
End Sub

已经确定有没有a.exe这个文件已后不会弹出 假如没有这个文件的话 就只谈请放到游戏文件夹
i = MsgBox("确认删除文件吗?", vbOKCancel, "删除")
If i = 1 Then Kill ("a.exe")

Private Sub Command1_Click()
If Dir("a.exe") = "" Then MsgBox "请放到游戏文件夹" :exit sub'需要终止
i = MsgBox("确认删除文件吗?", vbOKCancel, "删除")
If i = 1 Then Kill ("a.exe")
End Sub

没明白你的意思