社区 › 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

BrowseForFolderByPIDL有一个问题，因为vb5没有AddressOf，但我有一个在acad2000中使用的修复方法。我回家后会去看一看。

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