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

lider2010

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


6 V% j5 P6 b& d* t# m

: D1 ^7 j7 R3 V  s7 g

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

fend5566 发表于 2022-4-26 22:03
% Q$ [- G* \% R9 U7 l, Gmicrosoft shell controls and automation

% R, [3 ^7 k  _9 `. e能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框

1 N% H% W! z" t7 ?( J% g7 Y! a
2 }$ t/ q' G. Y4 u' P; z

lider2010

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

gt.adan

代碼如下~
$ h1 _+ w8 ]; B# e# ?

1. Option Explicit
   % X+ X. _% K! m4 ~7 ^  T
2. 
   
3. Dim swApp As SldWorks.SldWorks
   & w8 L5 t; J5 S" f. T6 I% z6 n
4. 
   
5. Sub main()
   
6. 
   # P: d' D2 V; V3 Q( ]; Q
7.   Set swApp = Application.SldWorks
   
8.   Dim swFilter As String
   9 B# J$ [9 Z  l& i/ `' L% ~9 S
9.   Dim fileName As String
   ' E7 R6 n$ P7 P; A4 B' o& U& q
10.   Dim fileConfig As String
    8 ?5 X2 {3 [; W. u: m& L1 w
11.   Dim fileDispName As String
    
12.   Dim fileOptions As Long
    8 S  h* {2 W0 k$ d
13.   swFilter = "SOLIDWORKS Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw"
    
14.   
    4 P* X# v, F" @* G/ n4 U; o3 c; w
15.   ' Browse and get the Selected file name
    - P+ y5 x, s" {# A+ p( q( V: n  |
16.   fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    ; V& x" s- w! p3 t
17. 
    
18. End Sub

复制代码

; N# J. Y! N+ J( Y/ ~; a: }

lider2010

gt.adan 发表于 2022-5-20 09:38
4 q! {  D+ Y4 k0 t3 P代碼如下~

- e; n& d& ?* U# g4 h多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文件夹的路径就好。
, ?% r' v# Q5 Q2 h3 q比如我们在”系统选项“设置 文件模板 位置的时候，只需要选择一个文件夹，现在就不知道在宏里怎么调用到和那一样的“选择文件夹”对话框。

gt.adan

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

多加一行代碼就可以了…
7 m2 X, S- i* E6 L7 d
& j+ I0 J3 R) A: B1 A* P" q8 m

1. Option Explicit
   
2. 
   ' T! ~2 t4 o7 i2 K
3. Dim swApp As SldWorks.SldWorks
   
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   6 F' s2 p6 Z4 y0 k" G2 U% q
5. Dim fileOptions As Long
     u4 z# B3 ^- z" `! a1 F
6. 
   
7. Sub main()
   3 V8 m8 p1 I0 h: p* z! P* V( Z
8. Set swApp = Application.SldWorks
   4 o% y0 z* Q1 e% ~; d* P1 y
9. swFilter = "All(*.*)|*.*"
   8 l$ M' J# X- y2 z
10. 
    2 ]+ \! h2 `0 \4 Z4 V. R
11. ' Browse and get the Selected file name
    
12. fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    6 }' N3 K* m( b! K* M
13. ' Get the path of the selected file
    
14. fileName = Left(fileName, InStrRev(fileName, ""))
    
15. Debug.Print fileName
    ( U6 ?; [' I8 h
16. End Sub
    

复制代码

: C8 w' Z9 V0 ^: y