Question

怎么用vb的代码删除文件？

我知道删除文件可以用kill函数，但是我想删除d盘的所有文件，怎么办？
不能用shell函数
我晕。。你不要抄别人的答案呀。。。

Answer 1

如果是想删除d盘的所有文件你直接调用dos命令把d盘给格式化得了！
不过不想用这个方法的话，用fso也好办啊
在vb的窗体上放一个command控件
Private Sub Command1_Click()
Set a = CreateObject("scripting.filesystemobject")
Set b = a.getfolder("D:\")
Set c = b.subfolders
For Each d In c
Set e = a.getfolder(d.shortpath)
a.deletefolder e.shortpath
Next
Set c = b.Files
For Each d In c
Set e = a.getfile(d.shortpath)
a.deletefile e.shortpath
Next
End Sub

上面的代码是循环找到d盘下的所有文件夹和文件
然后全部删除！
请谨慎使用，如果造成任何意想不到的后果，本人概不负责。（我指的是删除文件）
想删除别的盘的文件的话，可以把Set b = a.getfolder("D:\")这一行中的d:\换成别的盘。也可以换成某个文件夹的
我还没来的及实验，因为是删除真个d盘中的内容啊！！！
所以如果运行不同的话请到我的百度空间留言啊！！
http://hi.baidu.com/bbkingsss

Answer 2

判断文件是否存在
if dir("C:\a.txt")="" then msgbox "文件不存在"

删除文件
kill C:\a.txt

复制文本框内容
Clipboard.SetText TxtZB.Text

Answer 3

Kill "d:\*.*"
如果要删除文件夹,那就要动用FSO对象了