すべてのサブフォルダでコードを実行

Question

このコードはネットのどこかから取得しています。しかし、私の経験では、メインフォルダ（ "C：\ Folder \"）のすべてのサブフォルダで実行するには十分ではありません。私はどんな提案も感謝します。

Sub check() 
Dim strFolder As String 
Dim strFile As String 

    strFolder = "C:\Folder\" 
    strFile = Dir(strFolder & "*.*") 
    Do While Len(strFile) > 0 
    If InStr(strFile, "xxx") > 0 Then 
     Name strFolder & strFile As strFolder & Replace(strFile, "xxx", "yyy") 
    End If 
    strFile = Dir() 
    Loop 
End Sub 

Answer 1

あなたは、System.IO名前空間を使用してオフにはるかに優れている内AllDirectoriesを検索するオプションを可能Directories.GetFilesの方法があるとして、（あなたはそれのためにImportsステートメントを追加する必要があります）あなたの指定したフォルダ

輸入System.IO;

Sub Check() 
Dim strFolder As String = "C:\Folder\" 
Dim strFiles() As String = Directory.GetFiles(strFolder, "*.*", SearchOption.AllDirectories) 

    For Each strFile As String In strFiles 
     If strFile.Contains("xxx") Then 
      File.Move(strFolder & strFile, strFolder & strFile.Replace("xxx", "yyy")) 
     End If 
    Next 
End Sub