Deklaration: Declare Function lstrlen Lib "kernel32.dll" _ Alias "lstrlenA" ( _ ByVal lpString As Any) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function FindExecutable Lib "shell32.dll" _ Alias "FindExecutableA" ( _ ByVal lpFile As String, _ ByVal lpDirectory As String, _ ByVal lpResult As String) As Long Private Declare Function lstrlen Lib "kernel32.dll" _ Alias "lstrlenA" ( _ ByVal lpString As Any) As Long ' FindExecutable Konstanen Private Const ERROR_FILE_NOT_FOUND = 2& Private Const ERROR_PATH_NOT_FOUND = 3& Private Const ERROR_BAD_FORMAT = 11& Private Sub Command1_Click() Dim Retval As Long, Puffer As String ' Puffergröße festlegen Puffer = Space(256) Retval = FindExecutable("c:\windows\media\tada.wav", "", Puffer) Select Case Retval Case 0 Debug.Print "Es ist nicht genügend Speicher vorhanden, " & _ "um diese Funktion durchzuführen." Case 31 Debug.Print "Für diese Datei existiert keine verknüpfte Anwendung!" Case ERROR_FILE_NOT_FOUND Debug.Print "Die angegebene Datei wurde nicht gefunden." Case ERROR_PATH_NOT_FOUND Debug.Print "Der angegebene Pfad wurde nicht gefunden" Case ERROR_BAD_FORMAT Debug.Print "Die verknüpfte Anwendung ist ungültig oder keine Win32 Anwendung" Case Else Debug.Print "Verknüpfte Anwendung: " & Left$(Puffer, lstrlen(Puffer)) Debug.Print "Verknüpfte Anwendung mit Kommando: " & Left$(Puffer, _ InStr(1, Puffer, """") - 1) End Select End Sub Diese Seite wurde bereits 13.117 mal aufgerufen. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||
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. |