title image


Smiley Re: txt-Datei mit höchsten Dateinamen einlesen
Hallo Hans,

hilft dir das weiter:





Sub SucheDateien()



    Dim Verzeichnis As String

    Dim Dateimaske As String

    Dim DatName As String

    

    Verzeichnis = "D:\DATA\test\"

    Dateimaske = "*.txt"

    

    DatName = FileInDirectory(Verzeichnis, Dateimaske)

    'Jetzt einlesen der Datei



End Sub



Function FileInDirectory(Directory, Maske) As String

    

    Dim AnzGefunden As Long

    FileInDirectory = ""

    With Application.FileSearch

        .NewSearch

        .LookIn = Directory

        'Wenn Unterordner berücksichtigt werden sollen

        '.SearchSubFolders = True

        .FileName = Maske

        AnzGefunden = .Execute(SortBy:=msoSortByFileName, _

            SortOrder:=msoSortOrderDescending)

        If AnzGefunden > 0 Then

           FileInDirectory = .FoundFiles(1)

        End If

    End With

    

End Function





Code eingefügt mit Syntaxhighlighter 2.5





Gruß Worti

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: