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

lider2010

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



( [' {% P, R) i# Z1 g

lider2010

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

fend5566

microsoft shell controls and automation

lider2010

fend5566 发表于 2022-4-26 22:03
, K/ K% f) A4 u( [3 M( @microsoft shell controls and automation

: W) C4 N+ \7 N6 \! J. t( F能具体点吗，宏不是太懂，只自学了一点，能有个例子就好了。用这个方法我只能打开这样的对话框
$ e# [+ W; _, n% ]0 g% [! w9 i: d
- i9 k  e3 o. z: J& K
5 W0 l: Z+ k- K

lider2010

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

gt.adan

代碼如下~

1. Option Explicit
   - P% c. P, k/ N) n
2. 
   
3. Dim swApp As SldWorks.SldWorks
   / I! F* R6 b; U  V8 ~" @# O- L
4. 
   - Q+ ^, O1 B% E4 ?
5. Sub main()
   
6. 
   
7.   Set swApp = Application.SldWorks
   
8.   Dim swFilter As String
   & u7 R" l  S$ e- E+ L! `
9.   Dim fileName As String
   
10.   Dim fileConfig As String
    - L( ^, F6 G. U3 d( B
11.   Dim fileDispName As String
    
12.   Dim fileOptions As Long
    " w7 ?) s: K$ T8 S5 K' t
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)
      l. E7 T6 T$ n0 ^
17. 
    
18. End Sub

复制代码

& R/ T. d3 c, N8 w+ ^/ X5 A+ e
2 p3 C6 `+ G! j0 R  A+ @6 q$ V

lider2010

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

/ ^( B/ Q/ W% ]3 @$ t1 \. v多谢回复，您的代码是打开某个文件的，我现在是想要选择到某个文件夹位置，而不打开具体文件，只要得到文件夹的路径就好。
* ^& U1 C1 R' R- A- @8 u0 x$ v比如我们在”系统选项“设置 文件模板 位置的时候，只需要选择一个文件夹，现在就不知道在宏里怎么调用到和那一样的“选择文件夹”对话框。

gt.adan

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

多加一行代碼就可以了…
, w( Z8 A' S; T# i' n
. B2 H8 X: C5 g' ~) ?) P# i& W

1. Option Explicit
   9 i* q4 C! ?. ?  h
2. 
   5 O) z+ x* S9 M4 q- I
3. Dim swApp As SldWorks.SldWorks
   5 E4 {  k) L8 i  [4 X' q
4. Dim swFilter As String, fileName As String, fileConfig As String, fileDispName As String
   
5. Dim fileOptions As Long
   
6. 
   
7. Sub main()
   
8. Set swApp = Application.SldWorks
   
9. swFilter = "All(*.*)|*.*"
   
10. 
    
11. ' Browse and get the Selected file name
    
12. fileName = swApp.GetOpenFileName("Browse Document", "", swFilter, fileOptions, fileConfig, fileDispName)
    ; P1 ~& H- y1 w% Q0 P
13. ' Get the path of the selected file
    
14. fileName = Left(fileName, InStrRev(fileName, ""))
    
15. Debug.Print fileName
    
16. End Sub
      b7 Z3 C( }; l

复制代码

! M- R$ D- s3 E3 q
% U' F( `! v1 p9 ?0 N