Hallo Zusammen,
ich habe zwei Open Dialoge, um ein Text-datei auszuwählen.
1) Ordner auswählen
2) Text-Datei auswählen
Damit die Anwender nicht immer durch alle Laufwerke durchsuchen müssen, habe es mir überlegt, dass zuerst ein Open dialog, um den gewünschten
Ordner auszuwählen, danach sollte ein zweites Open Dialog geöffnet werden, um die gewünschte Text-Datei auszuwählen (Ort:aus dem ersten selektierten Ordner).
Bei dem ersten Dialog (Ordner auswählen) ist kein Problem.
Nur bei dem zweiten Open Dialog. Das Problem ist, dass CATIA Intern den letzten Öffnen oder speichern-Pfad, und verweist auf diesen Pfad zurück.
wie kann ich den zweiten open Dialog auf dem ausgewählten Ordner (Aus 1. Open Dialog) verweisen?
Das Skript sollte in CATScript durchlaufen.
Code:
Sub CATMain()
'1.Open Dialog
Dim objShell
Dim objFolder
set objShell = CreateObject("shell.application")
set objFolder = objShell.BrowseForFolder(0, "Select a folder", 0, "P:\VBS")
On Error Resume Next
if (not objFolder is nothing) then
objFolder = objShell.self.Path
end if
On Error GoTo 0
set objFolder = nothing
set objShell = nothing
'2.Open Dialog
Dim strFilePath
Dim strFileName
strFilePath = CATIA.FileSelectionBox("Select Text File", "*.txt",CatFileSelectionModeOpen)
If strFilePath = "" Then Exit Sub
Dim pos
pos = InStrRev(strFilePath , "\")
strFileName = Mid (strFilePath, pos +1, 100)
End Sub
Gibt es eine Möglichkeit das Problem zu beheben, oder eine andere Vorgehensweise, wie man das am besten machen kann?
Vielen Dank im Voraus
Viele Grüße
Estafanos
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP