列出并删除隐藏文件？

Question

我正在写一个VB脚本，它会在USB拇指杆上放置一系列文件夹。使用此USB拇指操纵杆时，这些文件夹将被隐藏（预期功能）。我试图这样做，如果这个脚本运行，它将消除拇指杆，然后替换文件，但我遇到了一些严重的问题，实际上删除了文件夹。

我用这段代码清除所有文件和文件夹：

For Each f In folder.Files
    On Error Resume Next
    name = f.Name
    f.Delete True
    If Err Then
        WScript.Echo "Error deleting: " & name & " - " & Err.Description
    End If
Next

For Each f In folder.SubFolders
    On Error Resume Next
    f.Attributes = 0
    name = f.Name
    f.Delete True
    If Err Then
        WScript.Echo "Error deleting: " & name & " - " & Err.Description
    End If
Next

这不是列出隐藏文件夹，我似乎无法手动找到隐藏文件FileSystemObject。我试过设置文件属性没有运气。

我在这里遗漏了什么吗？是否无法通过VBScripts访问隐藏文件？