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

lider2010

求助各位大佬，在SW宏里怎么调用solidworks自带的“选择文件夹”对话框，如下图，不知道用哪个函数或者方法可以调用这个对话框。类似于用GetOpenFileName可以调用“打开”对话框一样，
% z3 [: F, a9 }8 `7 x+ f  ]用BrowseForFolder也可以选择文件夹，但是感觉没有solidworks自带的那个好用。

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

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

能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框

5 p, S; \) F" c+ c

lider2010

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

gt.adan

代碼如下~
* r, I7 {4 c. M( d

1. Option Explicit
   : Z0 _! n+ P- b& X0 P0 R* ~- }
2. 
   
3. Dim swApp As SldWorks.SldWorks
   
4. 
   , a$ H" B# k% ^1 _1 x$ g
5. Sub main()
   
6. 
   ! R) `) y5 {' [; e* K
7.   Set swApp = Application.SldWorks
   ' ^/ R4 O8 _, T' O, |
8.   Dim swFilter As String
   
9.   Dim fileName As String
   7 g7 d3 J# K# O% d  B  k8 c
10.   Dim fileConfig As String
    
11.   Dim fileDispName As String
    + g/ S0 J4 M  X
12.   Dim fileOptions As Long
    3 |; y5 N1 Q& }8 P0 W
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
    1 L1 V; e" u$ F5 C% k
14.   
    ) t$ F9 B4 @! ]6 b+ o3 j
15.   ' Browse and get the Selected file name
    * _# J: A/ I2 w6 y1 c7 h0 R$ ?
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    7 m: K8 s3 w9 G% v4 Q
17. 
    
18. End Sub

复制代码

lider2010

gt.adan 发表于 2022-5-20 09:38
代碼如下~

多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文件夹的路径就好。
" g8 a& S4 P+ r( f0 ]: m比如我们在”系统选项“设置 文件模板 位置的时候，只需要选择一个文件夹，现在就不知道在宏里怎么调用到和那一样的“选择文件夹”对话框。

gt.adan

lider2010 发表于 2022-5-23 15:16
多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文 ...

多加一行代碼就可以了…

- q. ?9 `# ~3 z- s9 l" I+ l# d

1. Option Explicit
   ! e+ w6 p6 ~0 e/ ]+ a
2. 
   3 E7 N/ h2 z' g! D
3. Dim swApp As SldWorks.SldWorks
   
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   & f% V+ L6 ?( M3 u' R2 ^) u! K) ]' P
5. Dim fileOptions As Long
   
6. 
   
7. Sub main()
   0 s' ]' m! e  @' G0 n' G' H5 ~; l
8. Set swApp = Application.SldWorks
   
9. swFilter = "All(*.*)|*.*"
   2 U0 J- V& I& Y
10. 
    
11. ' Browse and get the Selected file name
    
12. fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    # D) C/ q- s+ y* v
13. ' Get the path of the selected file
    
14. fileName = Left(fileName, InStrRev(fileName, ""))
    
15. Debug.Print fileName
    4 j  l5 p+ l- T1 a% S# X" R( E
16. End Sub
    ( `( Q( P( y" q

复制代码

, Y3 l6 ]: l1 a