Function DateilisteAnzeigen(Ordnerangabe)   
Dim fso, o, d, da, s   
Set fso = CreateObject("Scripting.FileSystemObject")   
Set o = fso.GetFolder(Ordnerangabe)   
Set da = o.Files   
For Each d in da     
s = s & d.name     
s = s & "<BR>"   
Next   
DateilisteAnzeigen = s 
End Function