在宏里怎么调用solidworks自带的“选择文件夹”对话框？

lider2010

求助各位大佬，在SW宏里怎么调用solidworks自带的“选择文件夹”对话框，如下图，不知道用哪个函数或者方法可以调用这个对话框。类似于用GetOpenFileName可以调用“打开”对话框一样，
' M: T1 A* n6 K用BrowseForFolder也可以选择文件夹，但是感觉没有solidworks自带的那个好用。


. S/ R- W# C8 a. Q: n6 l
; i9 |6 B2 _: d; d8 }7 F+ T

lider2010

自己顶一下，希望知道的朋友能分享下方法

fend5566

microsoft shell controls and automation

lider2010

fend5566 发表于 2022-4-26 22:03
microsoft shell controls and automation

2 t# K7 ]! G# Y" `- B) \0 D能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框

lider2010

还有希望能得到高手的指点吗

gt.adan

0 R' G0 @/ O9 k" w代碼如下~
1 |0 ?2 E9 N$ M0 J1 l. a( x8 P2 s

1. Option Explicit
   
2. 
   & U2 v7 y/ @' A. p
3. Dim swApp As SldWorks.SldWorks
   
4. 
   ) M$ C4 E' ]1 l+ B6 c
5. Sub main()
   8 f* U0 u& f5 C1 W: k" z: r0 U
6. 
   
7.   Set swApp = Application.SldWorks
   4 N5 |" d: s( J- B  [/ i
8.   Dim swFilter As String
   . b  D" v- Q  C1 w5 O$ Z4 G2 ?% E8 {$ K
9.   Dim fileName As String
   
10.   Dim fileConfig As String
    - r3 H2 {1 R) D+ T& ^- U
11.   Dim fileDispName As String
    
12.   Dim fileOptions As Long
    % w. M1 e5 a& ~0 t
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
    
14.   
    : O* x$ F1 O  A' E3 p2 v" w
15.   ' Browse and get the Selected file name
    
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    ( A- L: {" R! ?! t& C
17. 
    9 n& o' t  L. B" O
18. End Sub

复制代码

; I+ b1 x& X- s! G  P; E

lider2010

gt.adan 发表于 2022-5-20 09:38
# }; {( R6 w! h; _* |* o代碼如下~

多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文件夹的路径就好。
( ^2 Z2 c- f2 b' L比如我们在”系统选项“设置 文件模板 位置的时候，只需要选择一个文件夹，现在就不知道在宏里怎么调用到和那一样的“选择文件夹”对话框。

gt.adan

lider2010 发表于 2022-5-23 15:16
; ^8 @1 p) F1 x/ f& b多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文 ...

多加一行代碼就可以了…

6 K0 Z* t: D8 B& f  ]" D

1. Option Explicit
   0 x) [3 q  k1 e
2. 
   
3. Dim swApp As SldWorks.SldWorks
   
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   
5. Dim fileOptions As Long
   
6. 
   9 t2 x7 W, R% M3 ]
7. Sub main()
   
8. Set swApp = Application.SldWorks
   
9. swFilter = "All(*.*)|*.*"
   
10. 
    
11. ' Browse and get the Selected file name
    
12. fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    
13. ' Get the path of the selected file
    
14. fileName = Left(fileName, InStrRev(fileName, ""))
    0 T& H# W1 x6 n4 G- Y  t# k
15. Debug.Print fileName
    
16. End Sub
    7 W1 f/ S2 S% ~# @

复制代码

* L) P( E, s. v$ X; i! E) |, ?2 \