VB脚本从文件夹中删除子文件夹和文件

Question

我有一个用户文件夹和文件夹中的一个文件夹，需要删除所有的内容，但离开文件夹显示所有的名称。

的文件夹结构是：

d：\用户\ aanderson \数据\东西
d：\用户\ acarlson \数据\东西
d：\用户\ banderson \数据\东西

，我想删除一切，但：

d：\用户\ aanderson \
d：\用户\ acarlson \
d：\用户\ banderson \

我尝试了几个不同的剧本，但它非常简单，只是清空整个文件夹（当然使用的测试文件夹）

Answer 1

从命令行，这样做是

for /d %a in ("d:\users\*") do (pushd "%~fa" && (rmdir . /s /q 2>nul & popd)) 

这是最简单的方法，对于每个子文件夹，请在其中放置一个锁以避免将其移除。在这种情况下，锁定为pushd，因为您无法删除当前的工作文件夹。

所以，做同样在VBScript

Option Explicit 

Dim shell, fso 
    Set shell = WScript.CreateObject("WScript.Shell") 
    Set fso = WScript.CreateObject("Scripting.FileSystemObject") 

Dim folder 
    For Each folder In fso.GetFolder("d:\users").SubFolders 
     shell.CurrentDirectory = folder.Path 
     On Error Resume Next : folder.Delete True : On Error Goto 0 
    Next