Abfragen ob Programm-Pfad vorhanden mittels VBA

• Abfragen ob Programm-Pfad vorhanden mittels VBA von rookie vom 07.04.2005 15:02:47
• AW: Abfragen ob Programm-Pfad vorhanden mittels VB - von Tobias Marx am 07.04.2005 15:17:13

Betrifft: Abfragen ob Programm-Pfad vorhanden mittels VBA
von: rookie
Geschrieben am: 07.04.2005 15:02:47
Hallo zusammen,
ich habe ein bestehendes VBA-Makro, mit welchem ich auch mittels Shell-Befehl ein Programm öffne: Shell "C:\Programme\WS_FTP Pro\wsftppro.exe", vbNormalFocus
Nun haben wir bei einem neuen Mitarbeiter sämtliche Programme unter "c:\program files" liegen.
Gibtes da eine Möglichkeit abzufragen, ob "c:\program files" existiert, wenn ja "C:\program files\WS_FTP Pro\wsftppro.exe" zu starten, wenn nicht "C:\Programme\WS_FTP Pro\wsftppro.exe" zu starten?
Wenn das funktionieren würde, müsste ich nicht für diesen Mitarbeiter ein eigenes Makro schreiben und dieses dann auch bei Änderungen pflegen.
Vielen Dank für Eure Hilfe
gruss
rookie

Betrifft: AW: Abfragen ob Programm-Pfad vorhanden mittels VB
von: Tobias Marx
Geschrieben am: 07.04.2005 15:17:13
Servus!
Aus der Recherche von Nepumuk:

Public Sub Test()
    If Ordner_vorhanden("D:\Program Files") Then 
      Shell "C:\Program Files\WS_FTP\wsftppro.exe"
    End If
End Sub
Private Function Ordner_vorhanden(Ordner As String) As Boolean
    Dim FSYObjekt As Object
    Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
    Ordner_vorhanden = FSYObjekt.FolderExists(Ordner)
End Function

Gruss

Tobias

Beiträge aus den Excel-Beispielen zum Thema "Abfragen ob Programm-Pfad vorhanden mittels VBA"