Office: (Office 2010) Pfad mittels VBA ermitteln

handisch · 10. März 2015

Hi there
Mein System: Win 7 und Office 2010
Ich suche eine VBA Routine, mit der sich der genaue Pfad des Acrobat Reader, also der AcroRd.exe, finden lässt. Dieser Pfad sollte in einer Variablen gespeichert sein, die ich dann weiterverwenden kann. AcroRd.exe befindet sich immer auf C:/....
Die VBA Routine möchte ich in meinem VBA weiterverwenden.
Googeln hat mir bisher nicht geholfen.
Besten Dank
handisch

:)

maikek · 12. März 2015

Hallo,
schau dir dazu die Funktion Dir() an.
Wenn du den Pfad zur exe benötigst, um pdf-Dokumente zu öffnen,
könnte stattdessen auch DBWiki - ShellExecute für dich interessant sein.
maike

handisch · 12. März 2015

Hallo Maike

Danke für Deine schnelle Antwort.
Dir() und Execute helfen mir nicht, da sie das Gegenteil von dem tun, was ich will. Wenn ich es richtig verstehe, geben die als Ergenis die Dateien in einem genannten verzeichnis. Ich brauche das Gegenteil. Ich gebe eine exe Datei (AcroRd32.exe) vor und benötige als Ergebnis die genaue Verzeichnisangabe, also z.B. C:/program files/Adobe/.....
Gibt es da was?
Gruß
handisch

maikek · 12. März 2015

Ich war der Meinung, dass man mit dir() auch Subdirectories durchsuchen kann, find's aber grad nicht. ShellExecute öffnet eine Datei mit dem dafür vorgegebenen Standardprogramm.

Für deine Suche kannst du dich ja mal an der ProzRekursiv von IngGi versuchen:
http://www.ms-office-forum.de/forum/...80&postcount=4. Die habe ich mir auch mal für eine Dateisuche in Unterverzeichnissen umgestrickt.

maike

handisch · 12. März 2015

Hallo Maike

Die folgende Routine bringt das gewünschte Ergebnis. Allerdings verlangt Sie die manuelle Eingabe der Datei, im vorliegenden Fall also "AcroRd32.exe". Wie kann ich diese Eingabe durch eine feste Vorgabe umgehen?
Code:

Private Sub Befehl3_Click()

Dim f As Object
Dim strFile As String
Dim strFolder As String
Dim varItem As Variant
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
If f.Show Then

For Each varItem In f.SelectedItems
strFile = "AcroRd32.exe" 'Dir(varItem)
strFolder = Left(varItem, Len(varItem) - Len(strFile))
MsgBox "Folder: " & strFolder & vbCrLf & _
"File: " & strFile

Next
End If
Set f = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Lösung würde mir extrem weiterhelfen.
Danke und Gruß
handisch

Maxel · 12. März 2015

Wie kann ich diese Eingabe durch eine feste Vorgabe umgehen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schau Dir dazu die Funktion Inputbox() an.

Andererseits kannst Du den Dateinamen auch in ein Formularfeld eingeben und im Code auf dieses Bezug nehmen.

Oder habe ich Dich falsch verstanden?

daolix · 12. März 2015

Wenn du jetzt den Path eines installierten Programms bestimmen willst, so könntest du ggf die registry mittels wmi unter HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\ auslesen.

TommyK · 12. März 2015

Hallo,

Lösung hier:
API: Dateipfad des assozierten Programms einer Datei finden

maikek · 12. März 2015

Mit dem FileDialog kenn ich mich nicht aus,
dein Codeschnipsel zeigt ja auch nur das Explorerfenster.

Ich habe die Prozedur von IngGi mal umgeschrieben.
Code:

Option Compare Database
Option Explicit

Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object

Private Sub btnTest_Click()
On Error GoTo errButton

Dim stPfad As String
Dim stFile As String

stPfad = "C:\" 'Nz(Me!Formularfeld, "C:\")
stFile = "AcroRd32.exe" 'nz(Me.FormularfeldFile, "AcroRd32.exe")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(stPfad) 'Oberster Ordner

'Me!txtZaehler = "Suche läuft."
'DoEvents

ProzRekursiv stFile, stPfad 'Unterprozedur mit Argumenten aufrufen

Set objSubFolder = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
End Sub

Private Sub ProzRekursiv(ByVal stFile As String, ByVal stPfad As String)
'Quelle: ms-office-forum, IngGi
On Error GoTo er

Dim objFile As Object 'Variable für die gefundenen Dateien !!!'-1 geklaut
Dim stSQL As String

For Each objFile In objFolder.Files 'Alle Dateien im Ordner abklappern
If objFile.Name = stFile Then 'nur das angefragte File
Debug.Print objFolder.Path & " " & objFile.Name
MsgBox objFolder.Path & "\" & objFile.Name
End If
Next objFile

'Alle Unterordner abklappern
For Each objSubFolder In objFolder.SubFolders 'Unterordner
Set objFolder = objSubFolder 'in Variable übernehmen
'Diese Prozedur rekursiv aufrufen, um alle Unterordner und deren Unterordner zu bearbeiten
ProzRekursiv stFile, stPfad 'hier die Argumente aus den Variablen erneut übergeben
'Wieder den übergeordneten Ordner in die Variable übernehmen
Set objFolder = objFSO.GetFolder(objFolder.Path & "\.")
Next objSubFolder

'Speicher freigeben
Set objFile = Nothing

ex:
Exit Sub

er:
MsgBox "Fehler " & Err.Number & " hat sich in Modul frmNeuesForm in Sub ProzRekursiv ereignet." _
& vbNewLine & vbNewLine & Err.Description
Resume ex

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit bekomme ich den Pfad zur angegebenen Datei.
Achtung: Es tritt der LZF 70 auf "Zugriff verweigert", vermutlich weil ich das ohne Adminrechte laufen liess. Führt allerdings nicht zum kompletten Abbruch der Prozedur. Teste das Ganze am besten also an einem Pfad, wo du alle Zugriffsrechte hast oder nimm den Fehler 70 in die Fehlerbehandlung auf.

maike

handisch · 13. März 2015

Hallo Maike

Ein ganz großes Dankeschön.
Das hätte ich nie hinbekommen.
Bei mir läuft es auch und auch mit der Fehlermeldung. Die werde ich noch wegbasteln.
schöne Grüße
handisch

maikek · 13. März 2015

Das hätte ich nie hinbekommen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich auch nicht *grins .
Das Dankeschön hat sich zu großen Teilen IngGi verdient.
maike

Office: (Office 2010) Pfad mittels VBA ermitteln

Pfad mittels VBA ermitteln

Pfad mittels VBA ermitteln

Pfad mittels VBA ermitteln

Pfad mittels VBA ermitteln

Pfad mittels VBA ermitteln - Similar Threads - Pfad mittels VBA

Dynamischer Pfad

Den Pfad verändern

Fehler beim Zugriff auf Pfad/Datei

Pfad standardisieren

Komplexes Makro ohne Ahnung :-/

Per Makro bestimmten Bereich per PDF unter bestimmten Pfad speichern.

Variable in Pfad zu externem Inhalt (Sharepoint)