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

lider2010

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

# U& z! Q) O* N0 Z- b3 S4 ]


! T; Q. ?, d& q* F

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

fend5566 发表于 2022-4-26 22:03
/ d5 e. _% R% j. G; X7 v" `6 Lmicrosoft shell controls and automation

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

, M* x$ B5 B6 f$ A0 C3 ?
+ R% ~1 u! @5 ?3 K' w

lider2010

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

gt.adan

4 Q! A" h9 X3 B! l
代碼如下~

1. Option Explicit
   0 _8 i% b. O2 s+ i8 e) G
2. 
   
3. Dim swApp As SldWorks.SldWorks
   
4. 
   9 h( X5 S  E' z1 u& A& a
5. Sub main()
   
6. 
   
7.   Set swApp = Application.SldWorks
   
8.   Dim swFilter As String
   
9.   Dim fileName As String
   + k1 t6 w0 ?8 [# w/ K6 O
10.   Dim fileConfig As String
    - u) U( q; H& x) q; F
11.   Dim fileDispName As String
    9 j' z- O+ w8 e& ^2 V- G& i0 k6 l9 J7 w
12.   Dim fileOptions As Long
    ) X; f* f4 m0 z, l; B4 s6 E
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
    
14.   
    $ r3 l' p. X7 X& i0 x; _
15.   ' Browse and get the Selected file name
    7 `& H& D) `6 U- |% X% P
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    
17. 
    : ?! N# P4 P' |- [0 G3 X% q
18. End Sub

复制代码

4 k3 M. I' M7 D3 y; O: Q

lider2010

gt.adan 发表于 2022-5-20 09:38
/ Z) P* R" W* O! _% H代碼如下~

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

gt.adan

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

1 E9 u6 O1 k7 z3 ~多加一行代碼就可以了…
7 Q0 J# v2 J: k6 q) [( M/ N4 O

1. Option Explicit
   
2. 
   
3. Dim swApp As SldWorks.SldWorks
   4 U, k4 X  z1 g8 ?& u
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   
5. Dim fileOptions As Long
   ; d1 b4 e0 k- \
6. 
   + v* g+ d+ A6 l2 j( s
7. Sub main()
   + K' ~% B$ t4 l/ q4 X
8. Set swApp = Application.SldWorks
   
9. swFilter = "All(*.*)|*.*"
   * H$ E% T/ o3 z+ }8 N! ~
10. 
    
11. ' Browse and get the Selected file name
    7 }1 W, p1 }# _
12. fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    : }( o) j. ~7 ~: W2 x1 @' q
13. ' Get the path of the selected file
    . Q8 Q$ D. Y& X4 f  D5 I# F
14. fileName = Left(fileName, InStrRev(fileName, ""))
    
15. Debug.Print fileName
    1 W) ?& @0 Q0 j( c! S
16. End Sub
    

复制代码

! E  y4 O% F% b