Access-o-Mania

Hallo zusammen,
habe folgendes Problem:
Ich habe eine Funktion erstellt die
mir die Angabe(Ausgabe) eines Verzeichnisses in weiteren
Programmcode zur Verfügung stellt.
Habe folgende Funktion in einem Modul bereits erstellt:

Pubilc Function ChangePad() as String
  ChangePfad = "C:\Daten\Testordner\"
End Function

Nun habe ich in einem Formular mit einem Button der mir diese Funktion aufrufen soll.

Private Sub btnVerz_oeffnen_Click()
  Dim stAppName As String
    stAppName = "explorer.exe & ChangePfad"
    Call Shell(stAppName, 1)
End sub

Bei Aufruf der Prozedur komme ich immer in mein Standardverzeichnis von Windows
und nicht in das vorgesehene Verzeichnis wie angegeben.
Um eine Hilfsstellung wäre ich sehr dankbar.
Grüße Hubert

Deine Codes sehen recht experimentell aus, die Beschreibung ist rudimentär.

Zitatkomme ich ... nicht in das vorgesehene Verzeichnis

Was möchtest Du da machen?
FollowHyperlink Path
Erste Funktion: Einen festen Pfad kann man auch per Konstante bereitstellen.

Zitat von: ebs17 am November 18, 2022, 09:34:37Deine Codes sehen recht experimentell aus, die Beschreibung ist rudimentär.

Zitatkomme ich ... nicht in das vorgesehene Verzeichnis

Was möchtest Du da machen?

Zum schlichten Öffnen des Explorers mit Verzeichnis:

Code [Auswählen] Erweitern

FollowHyperlink PathAlternativ ein ShellExecute-Aufruf.

Erste Funktion: Einen festen Pfad kann man auch per Konstante bereitstellen.

Hätte angenommen das ganze einigermaßen beschrieben zu haben.

Kurz: Über eine Funktion in einem Modul möchte ich
      bei betätigen eines Buttons (auf einem Formular)
      in ein im Modul angegebenes Verzeichnis weitergeleitet werden.
      Dabei sollte sich der Dateiexplorer öffnen und dieses Verzeichnis öffnen.

Folgende Überlegung hatte ich angestellt:
Bei Änderungen des Pfades in der Funktion braüchte ich dann in den einzelnen Formularen
die Verzeigung nicht mehr ändern.

Ich hoffe das es jetzt ein wenig klarer ist.
Vielen Dank - Hubert

stAppName = "explorer.exe " & ChangePfadwürde ich mal probieren.

Ja, die Feinheiten machen das aus. In diesem Fall das Leerzeichen nach .exe " .
Da muss man auch einmal draufkommen.
Vielen Dank.
Schöne Grüße Hubert

Hallo Hubert,
Das Leerzeichen ist zwar wichtig, aber nicht die Ursache des
(gelösten) Problems. Das war das Zusammensetzen des Strings
mit der Variablen.

gruss ekkehard

Zitat von: Beaker s.a. am November 18, 2022, 10:09:23

Code [Auswählen] Erweitern

stAppName = "explorer.exe " & ChangePfadwürde ich mal probieren.

Und als nächstes würde ich dann den Namen der Funktion überprüfen, die heißt nämlich im ersten Beitrag hier ChangePad, ohne f.
Wenn das keine Kompilierfehler verursacht, solltest du dich mal mit der Option Explicit Direktive vertraut machen.