Dateierweiterung einer Datei im Klartext II Ermitteln des Dateityps einer Datei im Klartext, so wie im Windows-Explorer.
Autor:   Dennis Hemken	Bewertung:     [ Jetzt bewerten ]	Views:  11.801
gadgets.hemken.org	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 47 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Um den Datteityp, bzw. die Dateierweiterung einer Datei in Klartext zu ermitteln, kann man das FileSystemObject benutzen. Hierzu braucht man lediglich einen Verweis auf die Microsoft Scripting Runtime-Bibliothek (Scrrun.dll) festlegen.

Nachfolgend der Code, mit der sich der Dateityp ermitteln lässt.

' Dateierweiterung ermitteln
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