Dateien auslesen - weshalb kommen gewisse nicht?
14.08.2013 11:44:08
Peter
Im Ordner "Austesten" sind folgende Dateien enthalten:
1) ABC.docx
2) xABCx.xlsx
3) cccc_ABC.xlsx
4) Exporte.xls
5) xxx _ABC2012.xls (nach dem dritten x ist kommt ein Leerschlag)
6) XXX_ABCl_F2013.xlsm
Mit untenstehendem Code sollten nach meinem Verständnis die Dateien 2, 3, 5, 6 aufgelistet werden. Datei 3 wird jedoch nicht aufgelistet.
Was ist mein Überlegungsfehler?
Gruss, Peter
Sub Auflisten()
sPfad = C:\Austesten\*.xls*"
Dateiname = Dir(sPfad)
Do While Dateiname ""
Dateiname = Dir()
If InStr(Dateiname, "ABC") > 0 Then 'String anpassen
lRow = Sheets("Temp").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Temp").Cells(lRow + 1, 1) = Dateiname
End If
Loop
End Sub