title image


Smiley Alle Files eines Ordners alphabetisch einlesen
Access 97



Hallo zusammen



Ich hab im Internet eine Funktion gefunden, welche TipTop funktioniert:



Public Function GetFilesInFolder(MyPath As String)

Dim MyFs As Object

Dim MyFolder, MyFile



Set MyFs = CreateObject("Scripting.FileSystemObject")

Set folder = fs.getfolder(MyPath)

For Each MyFile In MyFolder.Files

MsgBox file.Name

Next

End Function



Ich lese also sämtliche Files eines bestimmten Verzeichnisses aus. Das Problem ist nur, wie mache ich das alphabetisch?



Danke für jeden Tipp

Gruss Swisssmaster
Wenn die Klügeren immer nachgeben, dann regieren halt die Dummen die Welt...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: