Wie wählt man einen vba Folder?

[Adahm]

Bye to all,

Ich bin auf der Suche nach dem Weg, einen Fensterordner auszuwählen, so können Sie es als Ziel verwenden, um einige Dateien zu speichern.
Ich habe diesen Code gefunden:

dim shellapp als Objekt

'Erstelle ein Datei-Browser-Fenster im Standardordner
shellapp set = createobject("shell.application"). - Ja.
browseforfolder(0, "wählen Sie den Ordner", 0, openat)
...

aber es öffnet mir ein etwas veraltetes Fenster, das mir keine einfache Navigation erlaubt.

Es gibt auch diese andere Weise, die ich im Zugang zur gleichen Sache verwenden:

 ...
set fd = anwendung.filedialog(msofiledialogfolderpicker)
...

aber in Erfinder funktioniert nicht.

Ich denke, ich verstehe, dass Sie in Erfinder Dateien mit Fensterauswahlfenstern öffnen oder speichern können, aber keine Ordner auswählen.
Weiß jemand mehr?

 

[Adahm]

Wenn jemand dienen sollte, entdeckte ich, dass Erfinder nicht erkennen "msofiledialogfolderpicker", die durch eine sehr einfache "4" ersetzt werden soll.
dann könnte der vereinfachte Code wie folgt sein:

submostracartellaselezionata()
Dim selektiert

mit Anwendung. Dateidialog(4)
.show
ausgewählterfolder = .selecteditems(1)
Ende mit

'mostra l'indirizzo della cartella selezionata
msgbox (Auswahl)
Endteil

 

[Zac69]

Ich muss in den Ordnern speichern, die ich will, dass ich die Projektdatei so angepasst habe, dass innerhalb meines Arbeitsbereichs die Unterordner häufig verwendet werden. an diesem Punkt, wenn ich speichern oder öffnen kann ich direkt auf diese Ordner zugreifen, indem Sie einfach den Link auswählen, der im Fenster erscheint.
Punkt 4 unter "Einstellungen für Projekte":

http://help.autodesk.com/view/invntor/2019/ita/?guid=guid-34126f60-3093-4144-8aa5-809b4d35dca1

 

[Andrea Scarnecchia]

Hallo, ich weiß nicht, ob das das ist, was Sie brauchen, aber ich nutze diesen Block, um den Ordner während der laufenden Operation (vb.net) von Zeit zu Zeit zu wählen:

dim dialog = neuer Ordnerbrowserdialog mit {
.selectedpath = percorso di default,
.shownewfolderbutton = true,
.description = "scegli la cartella dove salvare i file."
}
wenn dialogresult.ok = dialog.showdialog() dann
ofilepath = dialog.selectedpath & "\"
andere
messagebox.show("procedura annullata.", "info")
zurück
Ende

 

[Adahm]

Hallo, ich weiß nicht, ob das das ist, was Sie brauchen, aber ich nutze diesen Block, um den Ordner während der laufenden Operation (vb.net) von Zeit zu Zeit zu wählen:

dim dialog = neuer Ordnerbrowserdialog mit {
.selectedpath = percorso di default,
.shownewfolderbutton = true,
.description = "scegli la cartella dove salvare i file."
}
wenn dialogresult.ok = dialog.showdialog() dann
ofilepath = dialog.selectedpath & "\"
andere
messagebox.show("procedura annullata.", "info")
zurück
Ende

Danke.
aber das ist in vb.net.
Ich benutze vba und der Code ist etwas anders.