社区 › VB › 解析路径和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 它是这样的Private Sub Class_Initialize()
    Set cFiles = New Collection
    mvarMaxFileSize = 256
    mvarFileName = String(mvarMaxFileSize, 0)
    Set Fs = CreateObject("Scripting.FileSystemObject")
End Sub

Bryco 发表于 2006-10-23 18:11:19

我从未使用过API调用，主要是因为我从未学会如何使用，所以我不知道出了什么问题

Bryco 发表于 2006-10-23 18:17:36

我刚被告知可能需要VB6；还有其他人有这样的问题吗？

Bryco 发表于 2006-10-23 20:54:32

存在问题&nbsp；当vb5不#039时浏览FolderByPidl；我没有AddressOf，但我有一个在acad2000中使用的补丁；我到家后会看一看。

查看完整版本: 解析路径和dwg列表