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

lider2010

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



" f: g- _% Y; G$ B' c

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

fend5566 发表于 2022-4-26 22:03
+ J4 a" Y  Z- K+ z3 H+ ]" ^% M; _1 _microsoft shell controls and automation

8 [. U3 }: Q, `, z能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框

lider2010

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

gt.adan

7 G" I5 a6 Q1 P& Q& `: @
代碼如下~

1. Option Explicit
   
2. 
   ( G& `$ V9 k* E6 F6 J: O
3. Dim swApp As SldWorks.SldWorks
   
4. 
     W7 q4 l+ b0 D+ K4 |% Q2 P: J; J
5. Sub main()
   
6. 
   & @8 B0 |" l5 [5 d
7.   Set swApp = Application.SldWorks
   " q2 h; C% P; y, z
8.   Dim swFilter As String
   0 }5 M- C1 z5 W
9.   Dim fileName As String
   
10.   Dim fileConfig As String
    5 l9 F7 F% L# U* Q( b
11.   Dim fileDispName As String
    ! p; z* P! w, p, N1 M3 [
12.   Dim fileOptions As Long
    
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
    
14.   
    / X! m! K" J) d+ Y& p
15.   ' Browse and get the Selected file name
    
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    
17. 
    
18. End Sub

复制代码

- a5 s. U  h/ H. T
. c) U  l6 K! a# }! |( {) A, D

lider2010

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

( F; w7 F  a3 G4 ?* j. x9 a多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文件夹的路径就好。
  J7 A! W1 X" k/ v+ L比如我们在”系统选项“设置 文件模板 位置的时候，只需要选择一个文件夹，现在就不知道在宏里怎么调用到和那一样的“选择文件夹”对话框。

gt.adan

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

多加一行代碼就可以了…

* R8 W& q- S, S6 @& U, M5 _% q, i

1. Option Explicit
   
2. 
   7 f2 W- W1 P# c- S; G" y
3. Dim swApp As SldWorks.SldWorks
   + D4 T+ v/ U1 R# T
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   ) Y0 h" B0 M9 X4 w0 G' t5 X* T
5. Dim fileOptions As Long
   : E! p  D& a( i  S, T. H! j0 J
6. 
   6 G4 i( L. D- ^, f. \; a
7. Sub main()
   % T, [8 C3 N# ?5 |4 a- w
8. Set swApp = Application.SldWorks
   
9. swFilter = "All(*.*)|*.*"
   6 w0 t! |- l! j* P* I! Q# ?& u
10. 
    3 E/ C; M/ D# N
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
    ( K: S$ _5 T2 v) l: u) j
14. fileName = Left(fileName, InStrRev(fileName, ""))
    
15. Debug.Print fileName
    5 _* V+ `, s0 i1 G/ t
16. End Sub
    

复制代码

4 I, _3 a- b$ U2 j) K+ L" ^+ X