Was ist eine .DLL Datei? Eine Programmbibliothek. ...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 .NET ermitteln - und zwar unter Zuhilfenahme des Windows-API, genauer gesagt der SHGetFileInfo-Funktion: Imports System.Runtime.InteropServices ' Konstanten Private Const MAX_PATH = 260 Private Const SHGFI_TYPENAME = &H400& ' API SHFILEINFO-Struktur <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _ Public Structure SHFILEINFO Public hIcon As Integer Public iIcon As Integer Public dwAttributes As Integer <MarshalAs(UnmanagedType.ByValArray, SizeConst:=MAX_PATH)> _ Public szDisplayName As Char() <MarshalAs(UnmanagedType.ByValArray, SizeConst:=80)> _ Public szTypeName As Char() End Structure ' benötigte API-Deklaration Private Declare Function SHGetFileInfo Lib "shell32.dll" ( _ ByVal pszPath As String, _ ByVal dwFileAttributes As Integer, _ ByRef psfi As SHFILEINFO, _ ByVal cbFileInfo As Integer, _ ByVal uFlags As Integer) As Integer ''' <summary> ''' Ermittelt die Dateibeschreibung einer existierenden Datei ''' </summary> ''' <param name="sFilename">Dateiname inkl. Pfadangabe</param> Public Function GetFileInfoDescr(ByVal sFilename As String) As String Dim SHInfo As New SHFILEINFO Dim sFileDescr As String = "" ' Beschreibung zur Dateierweiterung ermitteln With SHInfo ' Struktur füllen .szDisplayName = New Char(MAX_PATH - 1) {} .szTypeName = New Char(79) {} ' API-Funktion aufrufen SHGetFileInfo(sFilename, 0, SHInfo, Marshal.SizeOf(SHInfo), SHGFI_TYPENAME) ' Datei-Beschreibung sFileDescr = New String(.szTypeName).Trim(Chr(0)) End With Return sFileDescr 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.332 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |