Dosya yollarının bir listesini yapmak için Anahtar sözcük nasıl kullanılır

Question

VBA'da yeni bir eğitim alıyorum ve herhangi bir resmi eğitimim yok, ancak ihtiyacım olan şeylere kopyalayıp kodu değiştirerek birkaç şey yapabildim. Bunu değiştirmek için biraz yardıma ihtiyacım var. Şimdiki haliyle, bu, klasördeki tüm dosyalar için A sütunundaki tüm dosya yolunu koyar. Ne yapmak istediğim sadece bir anahtar kelime içeren dosyaların dosya yolunu almaktır. Bana verebileceğin herhangi bir yardım için teşekkür ederim.

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

Anahtar kelime dosya ise() denetlemek için Instr kullanabilirsiniz: değilse

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

ınstr altdizgenin Konumunu döner o bulunursa, bu 0 döndürecektir. Bunu Her döngü için kullanın.

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