Herbers Excel-Forum - das Archiv
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
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
| |