170
1424
8
顶梁支柱
使用道具 举报
Sub GetFolder() Dim CD As CommonDialog Dim sFolder As String Set CD = New CommonDialog ' this line calls the init class CD.DialogTitle = "Pick the drawings folder:" sFolder = CD.BrowseForFolder("C") Debug.Print sFolder End Sub
Private Sub Class_Initialize() Set cFiles = New Collection mvarMaxFileSize = 256 mvarFileName = String(mvarMaxFileSize, 0) Set Fs = CreateObject("Scripting.FileSystemObject") End Sub
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-7-6 20:39 , Processed in 0.312922 second(s), 61 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端