Function ListFiles(ordnername)
    Set fs = CreateObject("Scripting.FileSystemObject")
    If Not fs.FolderExists(ordnername) Then
        Err.Raise vbObjectError + 1, "ListFiles()", "Der angegebene Ordner """ & ordnername & """ existiert nicht!"
        Exit Function
    End If
    
    Set folder = fs.GetFolder(ordnername)
    For Each file In folder.Files
        ListFiles = ListFiles & file.Name & vbCr
    Next
End Function
