VB6如何检查子文件夹是否存在

Question

我几十年来一直在寻找这个，但没有成功。 我需要查明我指定的名称的子文件夹是否存在。

For i = 0 To 3 'got 4 different loc to check sub folders
    Set f = fso.GetFolder(backupdir(i)) 
    Set sf = f.SubFolders
    For Each fr In sf 'for each folder in sub folder
        Do Until fr = "" Or fr = Null 
            If fso.FolderExists(fr.SubFolders) Then 
            'if more sub folders exist i wanna make sure
            'that i can get their subfolders too
            'till there is no sub folder left..
                sf = fr
            End If
        Loop
    Next fr
Next i

Answer 1

诸如遍历文件夹的文件夹中的文件夹之类的操作称为递归。

FindFirstFile：使用文件夹掩码递归搜索文件夹（最少代码）示例 此处展示了如何使用 Windows API 快速完成此操作。

Answer 2

检查此代码。

Dim FolderList As String

Private Sub SubCheck1(folderToCheck As String)
   Dim fso, f, f1, s, sf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderToCheck)
   Set sf = f.SubFolders
   For Each f1 In sf
      FolderList = FolderList & "|" & f1.Name
      Call SubCheck1(f1.Path)
   Next
End Sub

Private Sub Form_Load()
   Call SubCheck1("c:\folderToSearch")
   Debug.Print FolderList
End Sub

此代码获取指定目录（本例中为 c:\folderToSearch）中的所有子文件夹，并将它们写入带有“|”的字符串FolderList 中。分隔符。

您还可以使用数组而不是用“|”分隔文件夹名称。
或者您可以在 Form_Load 中的 Debug.Print FolderList 行后添加以下代码来获取数组：

myArray = split(FolderList, "|")

Answer 3

您可以使用集合和标准 Dir 函数在 20 行代码中“递归”子文件夹，如下所示

Private Sub Command1_Click()
    Dim vElem           As Variant

    For Each vElem In pvGetFolders("C:\TEMP")
        Debug.Print vElem
    Next
End Sub

Private Function pvGetFolders(ByVal sRoot As String) As Collection
    Dim lIdx            As Long
    Dim sFile           As String

    Set pvGetFolders = New Collection
    pvGetFolders.Add sRoot
    Do While lIdx < pvGetFolders.Count
        lIdx = lIdx + 1
        sFile = Dir(pvGetFolders.Item(lIdx) & "\*.*", vbDirectory)
        Do While LenB(sFile) <> 0
            If sFile <> "." And sFile <> ".." Then
                sFile = pvGetFolders.Item(lIdx) & "\" & sFile
                If (GetAttr(sFile) And vbDirectory) <> 0 Then
                    pvGetFolders.Add sFile
                End If
            End If
            sFile = Dir
        Loop
    Loop
    pvGetFolders.Remove 1
End Function

Answer 4

您可以使用 WMI。你可以在CIM_Directory中搜索，我相信字段名称是“name”，
如果它包含您要查找的文件夹或部分文件夹名称，请返回全名。