Application.FileSearch weg?
21.09.2008 16:21:54
Frank
ich habe ein kleines Problem mit unten stehender Programmierung. Unter Excel 2003 lief das einwandfrei.
Nun habe ich Excel 2007 und jetzt hängt sich die Geschichte bei
"With Application.FileSearch" auf.
Offenbar gibt es dieses Filesearch nicht mehr.
Ich würde aber gerne weiterhin die Dateien in einem Ordner in meinem Formular angezeigt bekommen.
Hat da jemand eine Idee?
Gruß
Frank
Private Sub UserForm_Initialize()
Dim Datei As String
Dim Pfad As String
Dim PfadL As String
Dim i As Integer
Dim Anzahl As Integer
Dim FeldD() As String
Dim M As Byte
Dim Halt As Byte
Halt = 0
Pfad = ActiveWorkbook.Path
PfadL = Pfad & "\Trainingspläne\"
With Application.FileSearch
.NewSearch
.LookIn = PfadL
.Filename = "*.xls"
.Execute
Anzahl = .FoundFiles.Count
End With
On Error Resume Next
ReDim FeldD(Anzahl)
i = 1
Datei = Dir(PfadL & "*.xls")
While Datei ""
FeldD(i) = Datei
i = i + 1
Datei = Dir()
Wend
For i = 1 To Anzahl
frm_Einlesen.lst_Import.AddItem (FeldD(i))
Next i
On Error GoTo 0
End Sub