Dim fs, f, f1, fc, s
        fs = CreateObject("Scripting.FileSystemObject")
        f = fs.GetFolder(Ausgangsordner)
        fc = f.Files
        For Each f1 In fc
            If f1.Name Like "*.JPG" Or "*.JPEG" _
            Or "*.GIF" Or "*.PNG" Or "*.TIF" _
            Or "*.TIFF" Or "*.BMP" _
            Then
                s = s & f1.name
                s = s & vbCrLf
            End If
        Next
        MsgBox(s)