fso.DeleteFolder 提示“拒绝的权限”怎么回事？（特急）

bJiao 2004-02-09 05:28:10

我在程序中用fso.CopyFolder先copy一个文件到另一个目录，然后用fso.DeleteFolder来删除被copy的文件夹，提示“拒绝的权限”。
被拷贝的文件夹和目的地文件夹都在本地，我是以administrator来运行程序的。

不知道为什么出现这样的问题！
在程序中出现这个问题后，即使退出程序，在资源管理器中也不能删除该文件夹，提示“无法删除，共享冲突，原文件或目标文件可能正在使用”。这时已经没有任何程序在运行了。只能重新启动才能删除。

代码如下：
If fso.FolderExists(RejectedPath & "\" & Mid(ListfileName, 2, 5)) Then
fso.CopyFolder RejectedPath & "\" & Mid(ListfileName, 2, 5), HistoryPath & "\", True
fso.DeleteFolder RejectedPath & "\" & Mid(ListfileName, 2, 5), True
End If

...全文

272 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

最基础的VB删除文件夹方法代码，删除前弹出确认提示，先使用fso.FolderExists判断文件夹是否存在，然后使用fso.DeleteFolder删除，具体代码如下：　　Dim c As Integer 　　Call RiStr 　　c = MsgBox("确认将该文件夹删除吗?", 17, "提示信息") 　　If c = vbOK Then 　　 If fso.FolderExists(Text1.Text) Then 　　 fso.DeleteFolder Text1.Text '删除文件夹　　 MsgBox "文件夹已经被成功删除!", 64, "提示信息" 　　 Else 　　 MsgBox "文件夹不存在", vbInformation, "信息提示" 　　 End If 　　End If

删除文件夹dim fso=server.createobject("script.fileSystemObject")if fso.folderexists(Server.MapPath(filename)) then fso.deleteFolder(Server.MapPath(filename))end if 删除文件if fso.FileExists(Server.MapPath(

'判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Folder) Then FolderExits=true Else Fol

一般情况下，regsvr32 msxml3.dll或Regsvr32 scrrun.dll即可解决问题，如果还是不行，试着运行如下命令： echo 正在修复，这个过程可能需要几分钟，请稍候…… rundll32.exe advpack.dll /DelNodeRunDL

I'm trying to automate pushing a file into my users' home directories, but am stuck on a "Permission Denied" error — is thrown on line 6 here, with the CopyFile call.There are other parts of the scrip...

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章