vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
DTA-Dateien erstellen inkl. BLZ-/Kontonummernpr?fung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
zurück
Rubrik: Dateisystem · Dateien allgemein   |   VB-Versionen: VB4, VB5, VB604.12.01
Dateierweiterung einer Datei im Klartext

Mit nachfolgender Funktion lässt sich die "offizielle" Beschreibung eines registrierten Dateityps ermitteln.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  11.405 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    Was ist eine .DLL Datei? Eine Programmbibliothek.
    Was ist eine .EXE Datei? Eine Anwendung
    Was ist eine .VBP Datei? Eine Visual Basic Projekt Datei

    ...zumindest sagt uns das das Betriebssystem (oder auch der Windows Explorer)...

    Hierbei handelt es sich um die "offizielle" in der Registry eingetragene Beschreibung für im System registrierte Dateitypen bzw. Dateierweiterungen.

    Mit nachfolgender Funktion lässt sich die Datei-Beschreibung einer existierenden Datei auch unter Visual Basic ermitteln - natürlich wieder unter Zuhilfenahme des Windows-API, genauer gesagt der SHGetFileInfo-Funktion:

    ' zunächst die benötigten API-Deklarationen
    Private Declare Function SHGetFileInfo Lib "shell32.dll" _
      Alias "SHGetFileInfoA" ( _
      ByVal pszPath As String, _
      ByVal dwFileAttributes As Long, _
      psfi As SHFILEINFO, _
      ByVal cbFileInfo As Long, _
      ByVal uFlags As Long) As Long
     
    Private Const MAX_PATH = 260
    Private Const SHGFI_TYPENAME = &H400&
     
    Private Type SHFILEINFO
      hIcon As Long
      iIcon As Long
      dwAttributes As Long
      szDisplayName As String * MAX_PATH
      szTypeName As String * 80
    End Type
    ' Dateibeschreibung einer existierenden
    ' Datei ermitteln
     
    Public Function GetFileInfoDescr(ByVal sFilename As _
     String) As String
     
      Dim SHInfo As SHFILEINFO
      Dim lPos As Long
     
      ' Beschreibung zur Dateierweiterung ermitteln
      SHGetFileInfo sFilename, 0, SHInfo, Len(SHInfo), _
        SHGFI_TYPENAME
     
      ' Null-Zeichen suchen
      lPos = InStr(SHInfo.szTypeName, Chr$(0))
      If lPos > 0 Then
        GetFileInfoDescr = Left(SHInfo.szTypeName, lPos - 1)
      End If
    End Function

    Sie übergeben der Funktion GetFileInfoDescr den Dateinamen einer existierenden Datei (inkl. Pfadangabe) und erhalten zurück - die im System gespeicherte "offizielle" Dateibeschreibung.
     

    Dieser Tipp wurde bereits 11.405 mal aufgerufen.

    Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

    Über diesen Tipp im Forum diskutieren
    Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

    Neue Diskussion eröffnen

    nach obenzurück


    Anzeige

    Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
    (einschl. Beispielprojekt!)

    Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
    - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
    - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
    Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
     
       

    Druckansicht Druckansicht Copyright ©2000-2015 vb@rchiv Dieter Otter
    Alle 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.

    Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel