文件操作

丫丫

先看几句代码：

Dim fs

Set fs = CreateObject("Scripting.FileSystemObject")



fs.deletefile "\\server\abc$\123.txtt"

我的目的是，删除服务器上ABC目录中的123.txt文件。ABC目录是共享目录，为了管理需要，该共享目录不希望被人看到，但是希望程序能够用，所以共享名为ABC$。

但是执行到这里，系统说权限被拒绝。

我可以通过vba代码向ABC目录中拷文件，却无法删文件。

我该怎么办呢？

（我在操作系统中执行删除，是没有问题的）。谢谢！

丫丫

呵呵！解决了！是我的疏忽，最后一行代码应该是fs.deletefile "\\server\abc$\123.txt",1由于123.txt文件是只读的，所以后面要加一个参数，强制删除。

海狸先生

咳咳　文件删除也可以用vba函数kill（试试？）