Wie man Schlüsselwort verwendet, um eine Liste von Dateipfaden zu bilden

Question

Ich bin ein neuer zu VBA und habe keine formelle Ausbildung aber bin in der Lage gewesen, etwas zu tun, indem ich Code kopiere und modifiziere, um, was ich benötige. Ich brauche etwas Hilfe, um dieses zu ändern. So wie es jetzt steht, setzt dies den gesamten Dateipfad in der Spalte A für alle Dateien, die sich in dem Ordner befinden. Ich suche nur den Dateipfad der Dateien, die ein Schlüsselwort enthalten. Danke für jede Hilfe, die Sie mir geben können.

Sub File_List() 
Dim objFSO As Object 
Dim objFolder As Object 
Dim objFile As Object 
Dim i As Integer 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("C:\user\temp") 
i = 1 
For Each objFile In objFolder.Files 
Cells(i + 1, 1) = objFile.path 
    i = i + 1 
Next objFile 
End Sub 

Answer 1

Sie können Instr() überprüfen, ob das Schlüsselwort im Dateinamen ist:

If Len(InStr(1, objFile.Path, "KEYWORD", vbTextCompare)) > 0 Then 

InStr gibt die Position des Teils wenn festgestellt wird, wenn nicht, wird es 0 zurück. Verwenden Sie dies in der For Each-Schleife.

Answer 2

Sub File_List() 

    Dim objFSO As Object 
    Dim objFolder As Object 
    Dim objFile As Object 
    Dim i As Integer 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = objFSO.GetFolder("C:\user\temp") 
    i = 1 

    For Each objFile In objFolder.Files 
     If LCase(objFile.Name) Like "*keywordhere*" Then 
      Cells(i + 1, 1) = objFile.Path 
      Cells(i + 1, 2) = objFile.Name 
      i = i + 1 
     End If 
    Next objFile 

End Sub