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

lider2010

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

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

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

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

lider2010

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

gt.adan

( L+ ?4 z  W& u% N1 L1 h+ W  [代碼如下~
9 y, l! D) z2 O# n& O. A4 J1 P( y

1. Option Explicit
   
2. 
   
3. Dim swApp As SldWorks.SldWorks
   2 j4 O4 a% B5 |5 b4 v2 ~7 o5 D) M- d- {, x
4. 
   
5. Sub main()
   
6. 
   
7.   Set swApp = Application.SldWorks
   
8.   Dim swFilter As String
   8 m# r1 N7 l; a1 H
9.   Dim fileName As String
   * p4 i4 t& j- L4 \# a/ _" _, j
10.   Dim fileConfig As String
    $ ?- v- }8 M2 q1 T) o. a( i! p
11.   Dim fileDispName As String
    
12.   Dim fileOptions As Long
    3 w. h  L- K0 Y+ i/ \
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
    6 F" O: k' y/ m/ Z
14.   
    
15.   ' Browse and get the Selected file name
    
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    5 \* }5 I. W. b- x5 Z3 G( U2 ?
17. 
    
18. End Sub

复制代码

, N( N$ m( d$ u+ r( U8 {! P. f

lider2010

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

+ l, W$ ^4 X; y+ k8 g- o多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文件夹的路径就好。
$ R% R& @  `: z) e, V比如我们在”系统选项“设置 文件模板 位置的时候，只需要选择一个文件夹，现在就不知道在宏里怎么调用到和那一样的“选择文件夹”对话框。

gt.adan

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

多加一行代碼就可以了…
5 K/ C1 |5 \: i- ~

1. Option Explicit
   4 {" V) r, j$ j' g' _8 i
2. 
   : s6 a  f# J; z! N- p
3. Dim swApp As SldWorks.SldWorks
   * O: j; L8 _# N- t6 y
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   $ A& e- n; _4 R; L/ d: R& h! D% k
5. Dim fileOptions As Long
   3 z4 \& q9 m/ `( `9 c9 P
6. 
   ) J2 l8 k; q: L9 M; S
7. Sub main()
   : _+ H" W2 S1 X  Y
8. Set swApp = Application.SldWorks
   # I- V' [  s& d: C' a1 t$ M
9. swFilter = "All(*.*)|*.*"
   & c, D4 C, w  a9 G- w3 I6 v
10. 
    . ^% l3 k  w, @1 `& T
11. ' Browse and get the Selected file name
    ' K8 r0 X) t% j$ ^
12. fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    / V, f9 y3 ?# w+ h/ f7 s
13. ' Get the path of the selected file
    
14. fileName = Left(fileName, InStrRev(fileName, ""))
    8 e5 X7 ?3 c7 l
15. Debug.Print fileName
    ! c4 X5 ?: u7 Z# m, d  S" s
16. End Sub
    2 A) R) l+ G% p0 T3 Q

复制代码