解析路径和dwg列表

Bryco · 发表于 2006-10-23 18:07:19

它永远不会足够远，让我选择一条路
错误消息为：

Bryco · 发表于 2006-10-23 18:09:58

使用此

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

它是这样的

copy

Private Sub Class_Initialize()
    Set cFiles = New Collection
    mvarMaxFileSize = 256
    mvarFileName = String(mvarMaxFileSize, 0)
    Set Fs = CreateObject("Scripting.FileSystemObject")
End Sub