If-Abfrage in vba
Dirk
Mit Hilfe des Forums habe ich mir einen Code gebastelt, der mir eine Dateiliste erstellt. Es werden alle
Dateien im Ordner angezeigt.
Jetzt möchte ich das auf .xls Dateien einschränken. Wenn ich die Wenn-Bedingung in Zeile 3 scharf schalte, werden mir aber keine Dateien mehr angezeigt, obwohl die Msg.Box ganz normale .xls Daten auswirft.
Hier der Code. Kann mir jemand eine Anregung geben, wo ich suchen könnte?
For Each file In ordner.Files
' MsgBox (file.Name)
' If file.Name = ("*.xls") Then
Set objFile = objFolder.ParseName(CStr(file.Name))
r(2) = Replace(ordner.Path, ThisWorkbook.Path & "\", "")
r(3) = file.Name
r(4) = DateValue(file.DateLastModified)
r(6) = objFolder.GetDetailsOf(objFile, 14)
Set r = r.Offset(1)
' End If
Next
Vielen Dank schonmal,
Dirk