2
Datei im Verzeichnis und Unterordner suchen
Hallo zusammen,
ich möchte den Ordner (C:\Dateien) inkl alle Unterordner nach einem Suchbegriff durchsuchen.
Der Suchbegriff steht in der TextBox einer Userform: frm_Userform1.txt_Suchbegriff
(z.B. A-2016-123)
Wenn die Datei gefunden wurde, soll der gesamte Pfad in der Textbox (frm_Userform1.txt_PfadAusgabe) geschrieben werden.
zur Info: Die Datei existiert im gesamten Verzeichnis nur einmal.
Mit dem Code unten wird die Datei aber leider nur im Verzeichnispfad gefunden,
nicht aber, wenn die PDF in einem Unterordner liegt.
Hat jemand vielleicht eine Idee, wie ich den Code umstellen muss, damit auch die Unterordner durchsucht werden?
Danke und Gruß
ich möchte den Ordner (C:\Dateien) inkl alle Unterordner nach einem Suchbegriff durchsuchen.
Der Suchbegriff steht in der TextBox einer Userform: frm_Userform1.txt_Suchbegriff
(z.B. A-2016-123)
Wenn die Datei gefunden wurde, soll der gesamte Pfad in der Textbox (frm_Userform1.txt_PfadAusgabe) geschrieben werden.
zur Info: Die Datei existiert im gesamten Verzeichnis nur einmal.
Mit dem Code unten wird die Datei aber leider nur im Verzeichnispfad gefunden,
nicht aber, wenn die PDF in einem Unterordner liegt.
Hat jemand vielleicht eine Idee, wie ich den Code umstellen muss, damit auch die Unterordner durchsucht werden?
Private Sub CommandButton1_Click()
Dim DateiName As String
Dim PfadDateiName As String
DateiName = frm_Userform1.txt_Suchbegriff & ".pdf"
PfadDateiName = "C:\Dateien\" & DateiName
If Dir(PfadDateiName) <> "" Then
frm_Userform1.txt_PfadAusgabe = PfadDateiName
Else
MsgBox "PDF nicht vorhanden"
End IfDanke und Gruß
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 665208
Url: https://administrator.de/contentid/665208
Printed on: April 23, 2024 at 21:04 o'clock
2 Comments
Latest comment
Moin,
jo, Du musst rekursiv die Unterverzeichnisse ermitteln.
Beschrieben z.B. in https://exceloffthegrid.com/vba-code-loop-files-folder-sub-folders/
VG
schleeke
jo, Du musst rekursiv die Unterverzeichnisse ermitteln.
Beschrieben z.B. in https://exceloffthegrid.com/vba-code-loop-files-folder-sub-folders/
VG
schleeke
Vielen Dank, genau das hatte ich gesucht.
Mit diesem Code hat es funktioniert:
Beste Grüße und einen schönen Sonntag noch
Mit diesem Code hat es funktioniert:
Sub LoopAllFilesInFolder()
Dim folderName As String
Dim FSOLibrary As Object
Dim FSOFolder As Object
Dim FSOFile As Object
'Set the file name to a variable
folderName = "C:\Users\marks\Documents\"
'Set all the references to the FSO Library
Set FSOLibrary = CreateObject("Scripting.FileSystemObject")
Set FSOFolder = FSOLibrary.GetFolder(folderName)
Set FSOFile = FSOFolder.Files
'Use For Each loop to loop through each file in the folder
For Each FSOFile In FSOFile
'Insert actions to be perfomed on each file
'This example will print the file name to the immediate window
Debug.Print FSOFile.Name
Next
'Release the memory
Set FSOLibrary = Nothing
Set FSOFolder = Nothing
Set FSOFile = Nothing
End SubBeste Grüße und einen schönen Sonntag noch
