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

lider2010

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



7 x. f% B8 O3 }$ d

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

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

1 j6 z, g( V$ i+ k) y能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框

lider2010

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

gt.adan

' E( ^1 `  s* k3 M1 |0 k$ w
代碼如下~
6 G" o3 x, P' X6 R* c: n% {$ s

1. Option Explicit
   
2. 
   ) m- _* T& t; Z' s% }9 E. f9 X. ?
3. Dim swApp As SldWorks.SldWorks
   
4. 
   1 N# n9 F- p- i0 p& b9 C
5. Sub main()
   & ]* K2 w2 G8 k$ P% h7 H( M
6. 
   
7.   Set swApp = Application.SldWorks
   
8.   Dim swFilter As String
   
9.   Dim fileName As String
   
10.   Dim fileConfig As String
    ( X; l5 _9 j: O% J
11.   Dim fileDispName As String
    2 ]5 F: p1 J- i) \2 |/ F$ L6 v. o
12.   Dim fileOptions As Long
    6 q" U( R) z" l
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
    
14.   
    
15.   ' Browse and get the Selected file name
    
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    
17. 
    + t" \5 W3 z# M. t' x5 p
18. End Sub

复制代码

; A" p% ^8 [9 T+ X# D+ m
' S; k6 u, Y8 d

lider2010

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

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

gt.adan

lider2010 发表于 2022-5-23 15:16
& Y8 O) `: B( }+ ^" e8 e. ~- |! B多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文 ...

- L7 t  e; d/ a# Z' s: N多加一行代碼就可以了…

1. Option Explicit
   
2. 
   : X4 K$ `  {# [& }8 [
3. Dim swApp As SldWorks.SldWorks
   & ~" m5 i2 W7 w8 @5 l9 p
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
     n2 z% f! ?  c! _5 s- B, C" ?
5. Dim fileOptions As Long
   
6. 
   
7. Sub main()
   * H" c1 c5 n, N: o
8. Set swApp = Application.SldWorks
   . E' ]1 C5 J* w$ W
9. swFilter = "All(*.*)|*.*"
   3 g; B. q) n- ~' T3 Y$ l! w& Z; v* M
10. 
    9 Z& C+ U& u& e& }
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
    5 f. i6 Z1 Z) k2 P  o
14. fileName = Left(fileName, InStrRev(fileName, ""))
    
15. Debug.Print fileName
    
16. End Sub
    

复制代码

; S& i) m6 c/ n5 V  E" r