Dateierweiterung einer Datei im Klartext

Geschrieben von admin am 7. Januar 2010 | Abgelegt unter Veröffentlichungen

Tipp vom 24.11.2005

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.

Quellcode:

‘ 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

Sie können hier bei vbarchiv.net für mich voten!

Tags: , , , ,

Keine Kommentare »

Trackback URI | Kommentare als RSS

Einen Kommentar schreiben

Du musst angemeldet sein, um einen Kommentar zu schreiben.