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

lider2010

求助各位大佬，在SW宏里怎么调用solidworks自带的“选择文件夹”对话框，如下图，不知道用哪个函数或者方法可以调用这个对话框。类似于用GetOpenFileName可以调用“打开”对话框一样，
+ o3 R: M( Q0 Z; i+ ]7 [# W) ~4 Q用BrowseForFolder也可以选择文件夹，但是感觉没有solidworks自带的那个好用。


' D  q: i- _, Y
4 Y$ ]" J( `  O% b$ u
! W, _: I- e+ T: M- f

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

fend5566 发表于 2022-4-26 22:03
% A4 t2 t( j4 L% bmicrosoft shell controls and automation

能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框
  x* P: J/ ^( H0 E
) `9 \% h# A1 U- L

lider2010

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

gt.adan

  V- \- T& N& j# d8 E# M
6 l: B' L, T. [9 A代碼如下~

1. Option Explicit
   
2. 
   
3. Dim swApp As SldWorks.SldWorks
   
4. 
   
5. Sub main()
   
6. 
   
7.   Set swApp = Application.SldWorks
     q1 ?0 f) r. w/ J4 ~" h* r. b
8.   Dim swFilter As String
   " P" x' g3 `5 u& X
9.   Dim fileName As String
   
10.   Dim fileConfig As String
    , V: ]: q+ i5 x- V, A
11.   Dim fileDispName As String
    # m. ~; N  E3 f: E' x/ r
12.   Dim fileOptions As Long
    
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. 
    
18. End Sub

复制代码

9 d2 ]6 _3 c: p) d# l, v1 f7 V: L
3 N/ _6 t3 u+ Q8 e% y

lider2010

gt.adan 发表于 2022-5-20 09:38
! |/ @; T$ W, p8 g3 x代碼如下~

多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文件夹的路径就好。
7 ]$ {3 t) @/ ^比如我们在”系统选项“设置 文件模板 位置的时候，只需要选择一个文件夹，现在就不知道在宏里怎么调用到和那一样的“选择文件夹”对话框。

gt.adan

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

) t: Y- B1 p9 \, F1 Y# q* m多加一行代碼就可以了…
. P, w& B% ^7 k: p+ l
+ P# z  A/ Q+ A  ^+ H1 n! m4 a

1. Option Explicit
   
2. 
   & d1 o4 t* A6 Z
3. Dim swApp As SldWorks.SldWorks
   
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   
5. Dim fileOptions As Long
   
6. 
   / a6 I1 Q. e- ]+ U5 n. P9 ?
7. Sub main()
   
8. Set swApp = Application.SldWorks
   
9. swFilter = "All(*.*)|*.*"
   
10. 
    
11. ' Browse and get the Selected file name
    % T( o* R! K. t* |1 S
12. fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    * S7 Q/ c' w1 S& ]7 |. X- {, P( o4 \9 M
13. ' Get the path of the selected file
    : m* J' i, ^8 q6 l: n+ v; j6 _
14. fileName = Left(fileName, InStrRev(fileName, ""))
    
15. Debug.Print fileName
    - A! y  p; m# g+ W; N2 _
16. End Sub
    

复制代码

( v% s3 J9 D4 t7 F1 _8 r8 O' T
. Z) q0 g7 Q* S- O6 m% i