VBA - Auflistung Dateinamen beschränken
05.05.2021 14:48:40
Christian
Ich bitte um eure Hilfe:
nutze folgendes kleines Makro, dass mir die Dateinamen aus 2 Ordnern auflistet.
Wie kann ich das Makro so ändern, dass es beim Ordner D:\Bilder nur die Dateinamen auflistet, die mit MRS beginnen?
Beim Ordner E:\Bilder ist es egal, da dort alle Namen mit MRS beginnen.
Dankeschön
Chris
Public Sub DateienAuflisten()
Dim blnFound As Boolean
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Dim objDrives As Object
Dim objDrive As Object
Set objFileSystem = CreateObject(Class:="Scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("D:\Bilder")
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
lngZeile = lngZeile + 1
Cells(lngZeile, 1) = objDatei.Name
Next objDatei
Set objDrives = objFileSystem.Drives
For Each objDrive In objDrives
If objDrive.DriveLetter = "E" Then
blnFound = True
Set objDrive = Nothing
Exit For
End If
Next
If blnFound Then
lngZeile = 0
Set objVerzeichnis = objFileSystem.GetFolder("E:\Bilder")
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
lngZeile = lngZeile + 1
Cells(lngZeile, 2) = objDatei.Name
Next objDatei
End If
Set objDrives = Nothing
Set objVerzeichnis = Nothing
Set objDateienliste = Nothing
Set objFileSystem = Nothing
End Sub