Anfangdatei & "*" & Format(Date, "yyyy_ddmm") das ist doppelt gemoppelt. bring da mal Ordnung rein.
StTyp = "pdf"
Anfangderdatei = "*" & Format(Date, "yyyy_ddmm") & "*" ' sternchen(*) sind Platzhalter für x beliebige Zeichen und deren Anzahl
For Each FI In FSO.GetFolder(Folderspec).Files
If UCase(FSO.GetExtensionName(FI)) = UCase(StTyp) Then
If UCase(FSO.GetFileName(FI)) Like UCase(Anfangderdatei ) Then
|