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

lider2010

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

- n& S( N- p. f1 l$ D- q3 \; H$ {
% k# @8 @3 K2 X& H4 S0 A
/ R1 s* j+ m: g9 f  ^9 z6 V

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

fend5566 发表于 2022-4-26 22:03
2 U3 ]- D% \3 b5 vmicrosoft shell controls and automation

3 E: d9 D8 s: Q2 v5 }/ ?7 y4 ^能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框


6 Y; S1 i6 D% p# N3 [

lider2010

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

gt.adan

  n5 b7 m' A! A( G# s$ O' E  }
' x. M. m( h: N: E/ W代碼如下~
! p1 A3 d, V# k" O

1. Option Explicit
   
2. 
   6 C$ G/ K8 v4 z' t7 |
3. Dim swApp As SldWorks.SldWorks
   
4. 
   9 x: w1 n9 P+ B, B+ j5 z
5. Sub main()
   
6. 
   
7.   Set swApp = Application.SldWorks
   ; H  O: Y0 {; N' e$ w
8.   Dim swFilter As String
   ; [+ m+ N7 ]8 f
9.   Dim fileName As String
   
10.   Dim fileConfig As String
    
11.   Dim fileDispName As String
    
12.   Dim fileOptions As Long
    0 O& L) S  a4 s8 }, |6 O2 T  G" t
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
    
14.   
    
15.   ' Browse and get the Selected file name
    # m$ t' j  e7 o; V0 f  a. d6 z
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    4 P4 T9 E8 Q9 I0 V5 C
17. 
    4 G  V6 ~8 R8 h/ n8 r  W
18. End Sub

复制代码

/ z$ Y& u$ B# {( r

lider2010

gt.adan 发表于 2022-5-20 09:38
. W, ?" n) ~' O% |代碼如下~

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

gt.adan

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

# a$ K/ N2 e0 v& A# f7 K多加一行代碼就可以了…
* E! {8 s! g7 l8 h9 |3 d- y2 c5 C

1. Option Explicit
   
2. 
     i2 W, \5 g5 k; Y) @% S$ u$ D
3. Dim swApp As SldWorks.SldWorks
   ' c) z$ P4 d$ x
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   
5. Dim fileOptions As Long
   / d" k; o- @' V* X$ b& Y, H
6. 
   
7. Sub main()
   
8. Set swApp = Application.SldWorks
   - W- @7 s) {9 y. L% X
9. swFilter = "All(*.*)|*.*"
   ; R0 _4 \8 A; M# G. r
10. 
    3 K; f; p- Y" _' g) j* Z/ B3 c& [
11. ' Browse and get the Selected file name
    ( A2 O# U- }. T  l0 v
12. fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    
13. ' Get the path of the selected file
    
14. fileName = Left(fileName, InStrRev(fileName, ""))
    
15. Debug.Print fileName
    
16. End Sub
    

复制代码