VB---百例51--删除文件

概述Option Explicit Private Sub Command1_Click()         Dim killedfile As String, choicedfile As String      定义变量         Dim x         If Right(Dir1.Path, 1) = "\" Then            choicedfile = Dir1.Pat

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

成品图

选择文件路径的方法和实例49中的相类似

总结

以上是内存溢出为你收集整理的VB---百例51--删除文件全部内容，希望文章能够帮你解决VB---百例51--删除文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。