|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Von |
UnReal |
E-Mail |
chambers1@gmx.net |
Datum |
01. Juli 2014 um 18:55:29 |
Frage |
Hallo Leute, ich hab in mein Programm die Auswahlmöglichkeit einiger installierter Browser eingebaut. aber diese auch den Labels zu geordnet nun hab ich festgestellt wenn zB. der Erste (Google Chrome) nicht installiert ist kommt logischerweise eine Fehlermeldung. Wie kann ich das am besten umgehen? Sub Browser() Dim strDateic As String Dim strPfadc As String Dim strDateie As String Dim strPfade As String Dim strDateif As String Dim strPfadf As String Dim strDatein As String Dim strPfadn As String Dim strDateio As String Dim strPfado As String strDateic = "Chrome.exe" strPfadc = "C:\Users\" & bn & "\AppData\Local\Google\Chrome\Application\" LblBrowser(0).Visible = fncIstDateiVorhanden(strDateic, strPfadc) If LblBrowser(0).Visible = True Then ListBrowser.List(0) = LblBrowser(0).Caption: LblBrowserInd.Caption = "0" strDateic = "Chrome.exe" strPfadc = "C:\Program Files\Google\Chrome\Application" LblBrowser(0).Visible = fncIstDateiVorhanden(strDateic, strPfadc) If LblBrowser(0).Visible = True Then ListBrowser.List(0) = LblBrowser(0).Caption: LblBrowserInd.Caption = "1" strDateie = "iexplore.exe" strPfade = "C:\Programme\Internet Explorer" LblBrowser(1).Visible = fncIstDateiVorhanden(strDateie, strPfade) If LblBrowser(1).Visible = True Then ListBrowser.List(1) = LblBrowser(1).Caption strDateif = "Firefox.exe" strPfadf = "C:\Programme\Mozilla Firefox" LblBrowser(2).Visible = fncIstDateiVorhanden(strDateif, strPfadf) If LblBrowser(2).Visible = True Then ListBrowser.List(2) = LblBrowser(2).Caption strDatein = "Netscp.exe" strPfadn = "C:\Programme\Netscape\Netscape" LblBrowser(3).Visible = fncIstDateiVorhanden(strDatein, strPfadn) If LblBrowser(3).Visible = True Then ListBrowser.List(3) = LblBrowser(3).Caption strDateio = "opera.exe" strPfado = "C:\Programme\Opera" LblBrowser(4).Visible = fncIstDateiVorhanden(strDateio, strPfado) If LblBrowser(4).Visible = True Then ListBrowser.List(4) = LblBrowser(4).Caption End Sub vielen dank schon mal |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|