---

Hallo Forum,

in einem Makro versuche ich mittels Filesystembox eine Datei zu öffnen. Im Prinzip funktioniert das auch aber wie kann ich ein Verzeichnis voreinstellen?
Beim Öffnen ist der angezeigte Pfad immer
C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\DassaultSystemes,
das gewünschte Verzeichnis liegt aber auf einem anderen Laufwerk.

Datei = documents1.Application.FileSelectionBox("Datei öffnen", "c:test.catpart", CatFileSelectionModeOpen)

Viele Grüße
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
ich habe das selbe Problem. Ich weiß, dass er standard Befehl in Excel VBA über den eintrag einer Textbox folgendermaßen wählbar ist und auch funktioniert.

Set fs = CreateObject("Scripting.FileSystemObject")

ChDir "C:\Users"
ChDrive (Mid("C:\Users", 1, 3))

Dateiname = Application.GetOpenFilename _
            ("XLS (*.xls),*.xls,XLSX (*.xlsx),*.xlsx")

Das Problem ist, dass dieser Typ (Application und auch GetOpenFilename) in Catia nicht funktioniert.
Das "CHDir" vor deinem Befehl, den auch ich in Catia für meine Dateiauswahlen verwende, funktioniert nicht.
Er verwendet stets das verzeichnis aus dem man zuletzt etwas geladen hat.

Hast du shcon eine lösung für das Problem?
Ich bräuchte auch eine solche Funktion mit der man bei einem Dateiauswahlfenster das Verzeichnis wählen kann mit dem es sich zu Beginn öffnet.

Danke vielmals.

Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Verwende doch BrowseForFolder (siehe zB hier oder Suchmaschine deiner Wahl). Das sollte in VB, CATScript oder VBA laufen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

[Diese Nachricht wurde von bgrittmann am 15. Mrz. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

vielen Dank für die Antworten. Ich habe in der Zwischenzeit das Problem selbst gelöst.
Folgendes öffnet ein Eingabefenster, das mir den Pfad liefert. Das Browserfenster startet mit dem voreingestellten Z:\work

Dim Shell As Object
Set Shell = CreateObject("Shell.Application")
ordner = Shell.browseforfolder(0, "Test", 0, "Z:\work").self.Path

Da ich in dem Pfad aber noch Dateien mit ähnlichen Identnummern suchen will, habe mich mir eine Userform mit einer Listbox erstellt.
Das ganze Makro öffnet bei mir die Zeichnung eines Modells. Falls der Zeichnungsname vom Modellnamen abweicht, startet eben ein Dateiauswahldialog, in dem Dateien, bei denen die ersten sieben Ziffern gleich sind, automatisch angezeigt und ausgewählt werden können.

  PfadName = "Z:\work\"
        Dim Dateien(10000)
        UserForm_Dateioeffnen.ListBoxDatei.Clear
       
        File = Dir(PfadName & "\" & Left(Teilname, 7) & "*.CATDrawing")
        DateienAnzahl = Len(File)
           
        Do While Len(File) 'Gefundene Dateien aus File in Array Dateien() eintragen
            Dateien(i) = File
            i = i + 1
            File = Dir
        Loop
        For s = 0 To DateienAnzahl 'Listbox mit gefundenen Dateien füllen
            UserForm_Dateioeffnen.ListBoxDatei.AddItem (Dateien(s))
        Next

        UserForm_Dateioeffnen.Show 'Userform anzeigen 

Grüße
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja das geht für deinen Fall. Leider hab ich hier das Problem, dass man auch ein anderes verzeichnis das darüber liegt noch wählen kann.

ich habe es jetzt mit BrowseForFolder umgesetzt. Mit diesem Code. Den kann man dann variieren und den zu öffnenden Pfad übergeben.
http://www.vbarchiv.net/tipps/details.php?id=1089

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP