Public Function FileType(ByVal sPathFile As String) As String
    ' bei sPathFile handelt es sich um den Dateinamen
    ' inkl. Pfad (Bsp.: D:\lollo\test.doc)
    Dim objFso As FileSystemObject
    Dim objFile As File
    Set objFso = New FileSystemObject
    Set objFile = objFso.GetFile(sPathFile)
    ' FileType enthält dann bspw. den Text "Microsoft Word-Dokument"
    FileType = objFile.Type
    Set objFile = Nothing
    Set objFso = Nothing
End Function

EALA FREYA FRESENA