Option Explicit
Private Sub Command1_Click()
Dim killedfile As String,choicedfile As String 定义变量
Dim x
If Right(Dir1.Path,1) = "\" Then
choicedfile = Dir1.Path + File1.FileName
Else
choicedfile = Dir1.Path + "\" + File1.FileName
End If
killedfile = choicedfile 要删除的文件时所选文件
x = MsgBox("你确定要删除文件吗?",35,"确定框") 确认
If x = 6 Then 若返回值是6
Kill killedfile 将所选文件删除
MsgBox "文件已删除!请查看计算机上该文件所在的路径。","信息提示"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
成品图
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。