VBScript 删除文件夹失败 Error: Permission Denied Code: 800A0046

最新推荐文章于 2024-11-04 20:37:22 发布

andrew_tu

最新推荐文章于 2024-11-04 20:37:22 发布

阅读量2.4k

点赞数

CC 4.0 BY-SA版权

分类专栏：编程环境备忘文章标签： vbscript VBScript

本文链接：https://blog.youkuaiyun.com/andrew_tu/article/details/8497542

备忘同时被 2 个专栏收录

18 篇文章

订阅专栏

编程环境

16 篇文章

订阅专栏

本文介绍了一个使用VBScript批量删除指定目录下所有子文件夹的脚本，并解决了在遇到只读属性文件夹时出现的运行时错误问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

症状：

1. 运行下面的VBScript脚本，删除某个目录下的所有文件夹：

Set fso = CreateObject("Scripting.FileSystemObject")
Set deleteDir = fso.GetFolder("D:\FTP_Folder\vbScriptTest")   'Set the directory you want to delete
Set subFolders = deleteDir.Subfolders  'Get all the folders in the above directory
Set toBeDeletedFoldersPath = CreateObject( "System.Collections.ArrayList" ) 'Store the paths of the folders that need to be deleted

For Each folder in subFolders
    toBeDeletedFoldersPath.Add folder.path
Next

For Each folderPath in toBeDeletedFoldersPath
    fso.deleteFolder folderPath
Next

对于某些文件目录能够删除成功，但是对于某些目录却得到如下的运行时错误：

解决方法：

1. 像下面这样在第11行代码末尾加一个参数True，表示强制删除只读文件夹：

Set fso = CreateObject("Scripting.FileSystemObject")
Set deleteDir = fso.GetFolder("D:\FTP_Folder\vbScriptTest")   'Set the directory you want to delete
Set subFolders = deleteDir.Subfolders  'Get all the folders in the above directory
Set toBeDeletedFoldersPath = CreateObject( "System.Collections.ArrayList" ) 'Store the paths of the folders that need to be deleted

For Each folder in subFolders
    toBeDeletedFoldersPath.Add folder.path
Next

For Each folderPath in toBeDeletedFoldersPath
    fso.deleteFolder folderPath, True   'force the deletion of read-only files
Next