blocks|key|1741559|text|尝试使用终止(“文件夹路径”)|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|1741560|entityMap^0|4|3|E|1|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]|$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|M|8|@]|D|@]|E|$]]]|G|$]]

try to use Kill("folder path")

blocks|key|4445960|text|这很可能不是真正的“拒绝访问”。更有可能是“打开文件时无法删除”。关闭所有打开的对该文件夹的引用(文本流、可能已启动的进程，请仔细查看)，然后执行以下操作|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4445961|fso.DeleteFolder(dropzone)|code-block|syntax|javascript|4445962|参见MSDN+documentation+on+DeleteFolder()。|offset|length|style|CODE|4445963|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/ca0at0xh%2528v=vs.85%2529.aspx^0|0|0|O|E|2|10|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|W|8|@$I|X|J|Y|K|L]]|9|@$I|Z|J|10|1|11]]|A|$]]|$1|M|3|-4|5|6|7|12|8|@]|9|@]|A|$]]]|N|$O|$5|P|Q|R|A|$S|T]]]]

It's very, very probably not an actual "access denied". More likely it's an "can't delete while files are open". Close any open references to that folder (text streams, processes you might have started, look carefully) and do

<pre><code>fso.DeleteFolder(dropzone)
</code></pre>

See <a href="http://msdn.microsoft.com/en-us/library/ca0at0xh%28v=vs.85%29.aspx" rel="nofollow">MSDN documentation on <code>DeleteFolder()</code></a>.

blocks|key|2845568|text|检查文件的属性，如果尚未设置，则设置为0。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2845569|set+deletefolder+=+fso.GetFolder(dropzone)
if+deletefolder.Attributes=0+then
+deletefolder.Delete(True)
else
+deletefolder.Attributes=0
+deletefolder.Delete(True)
end+if
set+fso+=+Nothing|code-block|syntax|javascript|2845570|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Check the attributes of the file and set to 0 if it's not already set.

<pre><code>set deletefolder = fso.GetFolder(dropzone)
if deletefolder.Attributes=0 then
 deletefolder.Delete(True)
else
 deletefolder.Attributes=0
 deletefolder.Delete(True)
end if
set fso = Nothing
</code></pre>

blocks|key|2845594|text|@giodamelio奇怪的是，我把msgBox+dropzone这行放在你的代码之前，它就起作用了。当我注释掉msgbox的时候，它不工作了吗？|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2845595|2845596|您的代码或pc太快了！用法:d|unordered-list-item|2845597|您可能没有处置/关闭您使用或存储在该文件夹中的文件(或未正确关闭)|2845598|2845599|entityMap^0|I|F|1K|6|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]|$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|T|8|@]|D|@]|E|$]]|$1|G|3|H|5|I|7|U|8|@]|D|@]|E|$]]|$1|J|3|K|5|I|7|V|8|@]|D|@]|E|$]]|$1|L|3|-4|5|6|7|W|8|@]|D|@]|E|$]]|$1|M|3|-4|5|6|7|X|8|@]|D|@]|E|$]]]|N|$]]

@giodamelio Weirdly enough, I put the line <code>msgBox dropzone</code> before your code and it worked. When I comment out the <code>msgbox</code> it wont work?

<ul>
<li>Your code or pc is too fast! :D</li>
<li>You probably don't dispose/close files you use or store in that folder (or not closed correctly)</li>
</ul>

blocks|key|2845621|text|要使DeleteFolder正常工作，脚本的当前目录不应是要删除的文件夹路径的一部分。使用Shell.CurrentDirectory将当前目录更改为某个系统路径，然后调用DeleteFolder。我已经验证了这是可行的。检查this.|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|2845622|entityMap|0|LINK|mutability|MUTABLE|url|http://groups.google.com/group/microsoft.public.scripting.vbscript/browse_thread/thread/6fd7fd5c672acc01?pli=1^0|35|5|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

for DeleteFolder to work, the current directory for the script should not be a part of the path of the folder to be deleted.
Use Shell.CurrentDirectory to change the current directory to some system path and then call DeleteFolder.
I have verified that this works.
Check <a href="http://groups.google.com/group/microsoft.public.scripting.vbscript/browse_thread/thread/6fd7fd5c672acc01?pli=1" rel="nofollow">this.</a>

blocks|key|4446102|text|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4446103|No，不是timing|unordered-list-item|4446104|No的问题，不是dispose|4446105|No的问题，不是MsgBox|4446106|解决的问题，不是|4446107|属性的问题|4446108|否，不是当前目录路径的问题|4446109|No，无法使用Kill|4446110|否，它没有被拒绝访问H214|4446111|否，您不必支付H216H117否，MSDN文档不会告诉您|4446112|4446113|您只需删除路径中的尾随反斜杠，因为DELETEFOLDER不喜欢它。|4446114|现在，你可以随意射杀信使。|4446115|entityMap^0|0|0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|-4|4|5|6|10|7|@]|8|@]|9|$]]|$1|A|3|B|4|C|6|11|7|@]|8|@]|9|$]]|$1|D|3|E|4|C|6|12|7|@]|8|@]|9|$]]|$1|F|3|G|4|C|6|13|7|@]|8|@]|9|$]]|$1|H|3|I|4|C|6|14|7|@]|8|@]|9|$]]|$1|J|3|K|4|5|6|15|7|@]|8|@]|9|$]]|$1|L|3|M|4|C|6|16|7|@]|8|@]|9|$]]|$1|N|3|O|4|C|6|17|7|@]|8|@]|9|$]]|$1|P|3|Q|4|C|6|18|7|@]|8|@]|9|$]]|$1|R|3|S|4|C|6|19|7|@]|8|@]|9|$]]|$1|T|3|-4|4|5|6|1A|7|@]|8|@]|9|$]]|$1|U|3|V|4|5|6|1B|7|@]|8|@]|9|$]]|$1|W|3|X|4|5|6|1C|7|@]|8|@]|9|$]]|$1|Y|3|-4|4|5|6|1D|7|@]|8|@]|9|$]]]|Z|$]]

<ul>
<li>No, not a problem with timing</li>
<li>No, not a problem with dispose</li>
<li>No, not a problem solved by MsgBox</li>
<li>No, not a problem with attributes</li>
<li>No, not a problem with current directory path</li>
<li>No, can't use Kill</li>
<li>No, it's not access denied</li>
<li>No, you don't have to shell out</li>
<li>No, MSDN documentation won't tell you</li>
</ul>

YOU JUST HAVE TO DELETE THE TRAILING BACKSLASH IN THE PATH BECAUSE DELETEFOLDER DOESN'T LIKE IT.

Now, feel free to shoot the messenger ...

blocks|key|2845754|text|即使在将其属性设置为0之后，我仍然得到权限拒绝，它仍然是16。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2845755|我知道这不是一个答案。但是我不想为相同的查询打开一个新线程。我也尝试过为特定的路径执行任务终止。|2845756|📷|atomic|offset|length|2845757|​|2845758|Dim+FSO,+Folder
set+FSO=CreateObject("Scripting.FileSystemObject")
Folder=WScript.Arguments(0)
Folder1=WScript.Arguments(1)
Folder2=WScript.Arguments(2)
File=WScript.Arguments(3)

If+FSO.FolderExists(Folder)+Then

set+deletefolder+=+fso.GetFolder(Folder)

if+deletefolder.Attributes=0+then
+deletefolder.Delete(True)
else


deletefolder.Attributes=0
msgbox+deletefolder.Attributes+'Still+coming+as+16
+deletefolder.Delete(True)
end+if

msgbox+"Deleted"
FSO.CreateFolder(Folder)

End+If

If+FSO.FolderExists(Folder1)+Then



FSO.CreateFolder(Folder1)

End+If

If+FSO.FolderExists(Folder2)+Then



FSO.CreateFolder(Folder2)

End+If

If+Not+FSO.FileExists(File)+Then



FSO.CreateTextFile(File)


End+If

WScript.StdOut.Write(File)



'FSO.CopyFolder+WScript.Arguments(1),+WScript.Arguments(0)&"\"
'msgbox+Day(Date)
'FSO.CreateTextFile+Folder&"\"&"LogPR_To_PO_"&Day(Date)&"_"&Month(Date)&"_"&Year(Date)&".txt"


Set+FSO=nothing|code-block|syntax|javascript|2845759|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/93975fd70661704969c263aea383d423.png|imageAlt^0|0|0|0|1|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Z|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|10|8|@]|9|@$G|11|H|12|1|13]]|A|$]]|$1|I|3|J|5|6|7|14|8|@]|9|@]|A|$]]|$1|K|3|L|5|M|7|15|8|@]|9|@]|A|$N|O]]|$1|P|3|-4|5|6|7|16|8|@]|9|@]|A|$]]]|Q|$R|$5|S|T|U|A|$V|W|X|-4]]]]

i am still getting permission denied even after setting its attribute to 0
Its still coming as 16.

I know its not an answer.
But i dont want to open a new thread for the same query.
i tried doing task kill for a particular path also.<a href="https://i.stack.imgur.com/k9kKV.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/k9kKV.png" alt="enter image description here"></a>

<pre><code>Dim FSO, Folder
set FSO=CreateObject("Scripting.FileSystemObject")
Folder=WScript.Arguments(0)
Folder1=WScript.Arguments(1)
Folder2=WScript.Arguments(2)
File=WScript.Arguments(3)

If FSO.FolderExists(Folder) Then

set deletefolder = fso.GetFolder(Folder)

if deletefolder.Attributes=0 then
 deletefolder.Delete(True)
else


deletefolder.Attributes=0
msgbox deletefolder.Attributes 'Still coming as 16
 deletefolder.Delete(True)
end if

msgbox "Deleted"
FSO.CreateFolder(Folder)

End If

If FSO.FolderExists(Folder1) Then



FSO.CreateFolder(Folder1)

End If

If FSO.FolderExists(Folder2) Then



FSO.CreateFolder(Folder2)

End If

If Not FSO.FileExists(File) Then



FSO.CreateTextFile(File)


End If

WScript.StdOut.Write(File)



'FSO.CopyFolder WScript.Arguments(1), WScript.Arguments(0)&amp;"\"
'msgbox Day(Date)
'FSO.CreateTextFile Folder&amp;"\"&amp;"LogPR_To_PO_"&amp;Day(Date)&amp;"_"&amp;Month(Date)&amp;"_"&amp;Year(Date)&amp;".txt"


Set FSO=nothing
</code></pre>

blocks|key|4446241|text|如果你的文件夹路径有一个反斜杠，这个方法将抛出一个错误！我的大多数脚本都故意使用另一个函数在路径的末尾加上一个反斜杠，所以我删除了路径的最后一个字符(反斜杠)和中提琴！|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4446242|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

If your folder path has a backslash, the method will throw an error! Most of my scripts have a backslash at the end of paths purposely using another function, so I removed the last character of my path (backslash) and viola!

I have a VBScript program that creates a folder in the user's temp folder:

<pre><code>set fso = CreateObject("scripting.FileSystemObject")
temp = fso.GetSpecialFolder(2)
dropzone = temp &amp; "\{d450c76c-2ad8-4f73-af8a-ccc5ba28036a}\"

If Not fso.FolderExists(dropzone) Then 
 set NewFolder = fso.CreateFolder(dropzone)
End If
set NewFolder = Nothing
</code></pre>

At the end of the program, I would like to delete that folder. I tried this but it gives me a permission denied error:

<pre><code>set deletefolder = fso.GetFolder(dropzone)
deletefolder.Delete(True) 
set fso = Nothing
</code></pre>

VBScript cannot delete folder

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我有一个VBScript程序，它在用户的临时文件夹中创建一个文件夹：set fso = CreateObject("scripting.FileSystemObject")temp = fso.GetSpecialFolder(2)dropzone = temp & "\{d450c76c-2ad8-4f73-af8a...

问VBScript无法删除文件夹
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VBScript无法删除文件夹EN