du deklarierst in deiner Funktion erstmal drei Variablen vom Typ Object oder auch Variant, und noch ein String-Variable für den Pfad deiner Datei
mit einer Variable wird per CreateObject ein neues FileSystemObject erzeugt. Das wiederum kann dann eben z.B. einen Dateiordner oder eine Datei selber erstellen:
dim fso as Object, folder as Object, file as Object
dim dasisse as String
Set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder("<hier der Pfad zum Ordner!>")
jetzt haste deinen Ordner und kannst dann jede Datei, die sich darin befindet, ansprechen, also z.B:
For Each file in folder.Files
If instr(1, file.Name, "ear") > 0 Then
dasisse = file.Path
End If
Next file
Jetzt hast du, voraussgesetzt die Datei is wirklich eindeutig z.B. über die ersten paar Buchstaben des Namens zu identifizieren, den Pfad(+Namen) gespeichert und kannst mit ihr anstellen was immer dir möglich ist
klappts?
soweit,
duderino