Hallo
Wahrscheinlich sehe ich den Wald vor lauter Baeumen nicht.
Ich moechte eine Sub, welche mir in einem vorausgewählten Ordner alle Dateien nacheinander abarbeitet.

Private Sub AUTOWEITER()

Set Fs = CreateObject("Scripting.FileSystemObject")
Set Folder = Fs.GetFolder("c:\temp\Bilder")

For Each File In Folder.Files

  If File.Name Like "*.jpg" Then
  
  Bilddatei = Folder & File.Name
  
  Debug.Print Bilddatei

  End If
  
'#########################################
'>>> Nun habe ich die Informationen wo und mit welchen Namen die Datei existiert.
'>>> Genau diese Datei moechte ich "aktivieren" um weiteren Informationen (Eingentschaften)
'>>> in einer/mehrerer UserForm-TextBox zu schreiben und evtl. Kommentare zu hinterlegen.
'>>> Die UserForm ist bereits programmiert und mit einer Einzelauswahl per Explorer auch funktionstüchtig.
'#########################################
  
  Next

End Sub

Kann mir jemand einen kleinen Tipp hierzu geben?

Danke

Gruß

Fugmann