Hallo Zusammen,
ich bin gerade dabei ein Tool zu schreiben, welches mir sagt, ob eine Teilenummer doppelt im ordner vorhanden ist. Das ist soweit auch fertig, bis auf einen Punkt.
Momentan steht der Ordnerpfad direkt im Programmcode. Der soll aber später vom User selber ausgewählt werden.
Wie ich eine Datei suchen und mir den Pfad ausgeben lassen kann, weiß ich. Hierzu der Nachfolgende code.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Public swApp As SldWorks.SldWorks
Public swModel As SldWorks.ModelDoc2
Sub main()
Dim Filter As String
Dim fileName As String
Dim fileConfig As String
Dim fileDispName As String
Dim fileOptions As Long
Set swApp = Application.SldWorks
Filter = "SolidWorks Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw|Filter name (*.fil)|*.fil|All Files (*.*)|*.*|"
fileName = swApp.GetOpenFileName("File to Attach", "", Filter, fileOptions, fileConfig, fileDispName)
Debug.Print fileName
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Nun die Frage: gibt es eine möglichkeit nicht die Datei zu wählen sondern direkt den ordner?
Sowas wie GetOpenFolder oder so
Grüße Danny
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP