---

Her er et stykke kode som lister tekstdokumenter i en mappe. Koden kigger
efter Fil.Type med betegnelsen "Tekstdokument", hvor Tekstdokument åbenbart
skal skrives på dansk før at det virker. Vil det sige at koden ikke virker i
andre lande, eller hvad ?

Sub HentFilListe()
Dim FSO As New FileSystemObject
Dim Bibliotek As Folder
Dim Fil As File
Dim AntalFiler

Set Bibliotek = FSO.GetFolder(App.Path)
Set AntalFiler = Bibliotek.Files
For Each Fil In AntalFiler
If Fil.Type = "Tekstdokument" Then
List1.AddItem Item:=Fil
End If
Next

End Sub