UC知道用VB编写删除程式。会的进下下。
来源：百度知道 编辑：UC知道 时间：2024/05/16 11:07:09
如何实现VB编写一个能删除文件夹下的文件呢？如做一个程在同一个文件夹下，然后用代友编写删除在该文件夹下的文件，例如：文件夹中有一个名为："A.a" 的文件是否可能Delete方式来删除这个文件呢？可以的话应该如何写这代码/
再次补
这是刚刚写的代码：
Private Sub Command1_Click()
Kill Dir1 & "\b.b" Or Dir1 & "\a.a"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
运行后就不行了，我的意思就是删除多个文件比如是：a.a 和b.b
一旦找不到其中的一个就出错了。不能执行下一步了。
再次补
这是刚刚写的代码：
Private Sub Command1_Click()
Kill Dir1 & "\b.b" Or Dir1 & "\a.a"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
运行后就不行了，我的意思就是删除多个文件比如是：a.a 和b.b
一旦找不到其中的一个就出错了。不能执行下一步了。
kill +路径
比如 kill "c:\test.txt"
在前面+上on error resume next
on error resume next
Kill Dir1 & "\b.b"
Kill Dir1 & "\a.a"
kill每次只能删除一个文件
用Kill命令可以，
面的对象的程序建议您使用 FSO 对象模型，删除前先检测文件是否存在
引用：microsoft scripting runtime
定义：Dim fso As New FileSystemObject
fso.deletefile 方法：
DeleteFile 方法
描述
删除一个指定的文件。
语法
object.DeleteFile filespec[, force]
DeleteFile 方法语法有如下几部分：
部分 描述
object 必需的。始终是一个 FileSystemObject 的名字。
filespec 必需的。要删除文件的名字。Filespec 可以在最后的路径部件中包含通配符。
force 可选的。Boolean 值，如果要删除具有只读属性设置的文件，其值为 True。如果其值为 False （缺省），则不能删除具有只读属性设置的文件。
说明
如果没有发现相匹配的文件，则产生一个错误。DeleteFile 方法停在它遇到的第一个错误上。不要尝试回卷或撤消错误发生前所做的任何改变。