ein Import-Modul soll in einem bestimmten Ordner alle txt-Dateien, entsprechend dem Speicherdatum, sortieren und einlesen.
Dafür habe ich folgenden Code bisher (auszugsweise und zum Testen) geschrieben bzw. kopiert:
Set fs1 = Application.FileSearch
With fs1
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = "D:\Mike\vba\testordner\"
.Filename = "*.txt"
.SearchSubFolders = False
If .Execute(SortBy:=msoSortByLastModified, _
SortOrder:=msoSortOrderDescending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For x = 1 To .FoundFiles.Count
MsgBox .FoundFiles(x)
Next x
Else
MsgBox "There were no files found."
End If
End With
Leider funktioniert die msoSortby-Methode nicht so, wie ich es dachte. Die in dem Ordner vorhandenen Dateien werden ganz normal wie bei der msoSortbyFileName sortiert.
Habe ich die LastModified-Variante falsch verstanden? Oder gibt es einen anderen Weg die Dateien entsprechend ordnen zu lassen?
Danke, Mike