删除指定文件的代码是什么？

123shusheng

这是我在坛子里搜到的一段代码：
Private Sub Command251_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile "c:\windows\temp\*.*"
End Sub
用它们来删除C:\windows\temp目录下的文件,

可是提示错误。找不到工程库，为什么？请问正确的代码是什么，谢谢！

t小宝

看看系统中是否有 C:\WINDOWS\system32\scrrun.dll 并注册

roych

貌似要先定义fs吧？
Private Sub Command251_Click()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile "c:\windows\temp\*.*"
End Sub
此外，建议前期引用。即引用Scripting Runtime库【不知道有没有记错名字，大体应该是类似名字的库】。

mclly2000

测试了下还是不行

todaynew

kill "c:\windows\temp\*.*"

mclly2000

Private Sub Command0_Click()
Kill "C:\Documents and Settings\cpic-lly\桌面\cc\*.*"
End Sub
直接这样用，同样达到目的

mclly2000

http://www.accessoft.com/article-show.asp?id=3886

roych

mclly2000 发表于 2013-4-25 08:49
测试了下还是不行

这个是用户权限问题，跟代码无关。例如有些用户只有访问的权限而没有读写权限就会弹出这个对话框【特别是域用户管理方面】

mclly2000

roych 发表于 2013-4-26 02:57
这个是用户权限问题，跟代码无关。例如有些用户只有访问的权限而没有读写权限就会弹出这个对话框【特别是 ...

管理员操作的

123shusheng

mclly2000 发表于 2013-4-25 13:24
Private Sub Command0_Click()
Kill "C:\Documents and Settings\cpic-lly\桌面\cc\*.*"
End Sub

您的这个答案最简洁，我用了，谢谢您！