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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.