Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Lösung
Autor: cairol
Datum: 28.04.01 10:46
Sub Main() Dim Ergebnis 'Besser ist natürlich nach der Standardanwendung für .avi-Dateien zu suchen If FileExist(Trim$("C:ProgrammeWindows Media Playermplayer2.exe")) = True Then Ergebnis = Shell("C:ProgrammeWindows Media Playermplayer2.exe Test.avi", vbNormalFocus) Unload Form1 Else MsgBox "Windows Media Player nicht gefunden!" & vbCrLf & _ "Anwendung wird beendet!" _ , vbCritical, "Sorry" Unload Form1 End If End Sub Function FileExist(ByVal FName$) As Boolean On Error GoTo fehler FileExist = Dir$(FName) <> "" Exit Function fehler: FileExist = False Resume Next End Function Für die Standardanwendung............................................ 'Tools & Components für Visual-Basic 32-Bit 'ActiveX-Steuerelemente ' 'wöchentliche Tipps & Tricks zu Visual-Basic 'Tipps & Tricks zu JavaScript / WEB-Design und Windows ' 'zweiwöchentlich ercheinender Newsletter ' 'Das alles finden Sie unter: http://www.tools4vb.de/ ' 'Dieter Otter 'Software-Entwicklung & Vertrieb 'eMail: info@tools4vb.de '====================================================== Option Explicit Public Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long 'Diese Funktion ermittelt die Standard-Anwendung 'in Verbindung mit einem bestimmten Dateityp ' 'Die Funktion gibt als Ergebnis den Dateinamen mit 'vollständigen Pfad zurück ' 'Kann keine assoziierte Anwendung ermittelt werden 'wird ein Leerstring zurückgegeben Public Function AnwendungFuerDatei(ByVal Datei As String) As String 'Datei: Pfad+Dateinamen einer existierenden Datei Dim Pfad As String Pfad = Space$(256) FindExecutable Datei, vbNullString, Pfad If Pfad <> "" Then Pfad = Left$(Pfad, InStr(Pfad, vbNullChar) - 1) End If If UCase$(Pfad) = UCase$(Datei) Then Pfad = "" AnwendungFuerDatei = Pfad End Function

.avi Dateien	127	cairol	25.04.01 21:27
Re: .avi Dateien	89	TheTimoo	26.04.01 19:12
Re: .avi Dateien	85	cairol	26.04.01 19:54
Lösung	103	cairol	28.04.01 10:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen