Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 24.11.05 |
Dateierweiterung einer Datei im Klartext II Ermitteln des Dateityps einer Datei im Klartext, so wie im Windows-Explorer. | ||
Autor: Dennis Hemken | Bewertung: | Views: 11.296 |
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