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

lider2010

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



, P; X2 S3 E  I
$ g: h9 d# a. a1 O% L  l

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

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

+ x7 _0 r6 F( W9 t' b+ ~8 f能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框


$ P$ L# I" z2 V5 F7 d: Q8 I2 Y

lider2010

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

gt.adan

( @" r/ j: ~+ X! B5 P. Y( [- Z
( a  d7 B; F5 B; ~4 i代碼如下~
- p$ P8 k& r, o) n

1. Option Explicit
   6 E2 y$ R8 ~3 C0 |; t0 S- Q
2. 
   - Q& K5 q& b, f* [8 E: k2 }
3. Dim swApp As SldWorks.SldWorks
   2 M0 @; Q+ R, v9 Y. Z% K
4. 
   . s9 t# Z; D0 Q! a5 f& i! r- n
5. Sub main()
   & v9 ^/ b: |! B: \: B1 n( [
6. 
   
7.   Set swApp = Application.SldWorks
   
8.   Dim swFilter As String
   
9.   Dim fileName As String
   , l+ @0 l. J0 W. T+ Y0 K3 x4 g& {
10.   Dim fileConfig As String
    0 i" F# E8 D; ~, d- }) G
11.   Dim fileDispName As String
    
12.   Dim fileOptions As Long
    
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
      C% E7 ?" {8 @7 N% P; n' i8 Q
14.   
    
15.   ' Browse and get the Selected file name
    $ e; N5 d+ z3 i6 C& {
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    
17. 
    
18. End Sub

复制代码

9 P' L! I3 Z9 Q) @6 N' }

lider2010

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

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

gt.adan

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

多加一行代碼就可以了…
( b* |) B2 l8 P" H! }

1. Option Explicit
   / f- c$ t2 n+ Z2 b2 f# N& L- |
2. 
   
3. Dim swApp As SldWorks.SldWorks
   1 A5 U  i) V7 X7 [- @2 g
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   ! b: w+ r3 F, W
5. Dim fileOptions As Long
   
6. 
   
7. Sub main()
   : Q9 M1 a8 U: f8 k1 q2 V) n
8. Set swApp = Application.SldWorks
   
9. swFilter = "All(*.*)|*.*"
   
10. 
    
11. ' Browse and get the Selected file name
    7 a& i6 N, P0 ?7 c( m
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
    7 v7 e* N4 B. I$ M1 Y/ o- @
16. End Sub
    - F9 S$ E( e1 K6 ?

复制代码