Verzeichnis und Unterordner nach Word-Dokumenten und Suchbegriff "Test" durchsuchen und auflisten
Hallo
ich hoffe, Ihr könnt mir bei einem Problem weiterhelfen:
Ich möchte alle Ordner und Unterordner des Verzeichnisses C:\VBA
nach folgenden Kriterien durchsuchen:
- Word-Dateien
- der Begriff "Test" soll im Dateinamen enthalten sein
Aufgelistet werden soll der komplette Pfad inkl. Dateinamen in:
C:\VBA\Test.xlsm in "Tabelle 1"
Vielen Dank
ich hoffe, Ihr könnt mir bei einem Problem weiterhelfen:
Ich möchte alle Ordner und Unterordner des Verzeichnisses C:\VBA
nach folgenden Kriterien durchsuchen:
- Word-Dateien
- der Begriff "Test" soll im Dateinamen enthalten sein
Aufgelistet werden soll der komplette Pfad inkl. Dateinamen in:
C:\VBA\Test.xlsm in "Tabelle 1"
Vielen Dank
Please also mark the comments that contributed to the solution of the article
Content-Key: 475240
Url: https://administrator.de/contentid/475240
Printed on: April 25, 2024 at 05:04 o'clock
4 Comments
Latest comment
Get-ChildItem "C:\VBA\*" -File -Include *.docx,*.doc,*.docm,*.dot,*.dotx,*.dotm -Recurse | ?{$_.Basename -like '*test*'} | select Fullname | export-csv 'C:\VBA\ergebnis.csv' -Delimiter ";" -Encoding UTF8 -NoTypeinformation
Naja dann hätte man das in der Kategorie VBA platzieren sollen.
Einfach mal die Suchfunktion benutzen, Funktionen zum rekursiven Durchsuchen finde ich hier wie Sand am Meer...
z.B. hier
VBScript erweitern für Subfolder
Extension anpassen mit InStr zus. im Dateinamen per IF Abfrage suchen, fertsch ist der Salat. Dafür braucht man ehrlich gesagt keinen Forenthread...
Einfach mal die Suchfunktion benutzen, Funktionen zum rekursiven Durchsuchen finde ich hier wie Sand am Meer...
z.B. hier
VBScript erweitern für Subfolder
Extension anpassen mit InStr zus. im Dateinamen per IF Abfrage suchen, fertsch ist der Salat. Dafür braucht man ehrlich gesagt keinen Forenthread...
set objFS = CreateObject("Scripting.FilesystemObject")
parseFolders objFS.GetFolder("c:\vba"),True
Function parseFolders(strFldr,boolRecursion)
for each myFile in strFldr.Files
If LCase(objFS.GetExtensionName(myFile.Name)) = "docx" and InStr(1,myFile.Name,"test",1) > 0 Then
Sheets(1).Cells(Rows.Count,"A").End(xlUp).Offset(1,0).Value = myFile.Path
End If
Next
If boolRecursion Then
For Each subFolder in strFldr.SubFolders
parseFolders subFolder, True
Next
End If
End Function