关于drivelistbox,dirlistbox,filelistbox的使用

Question

以上三个控件如何一起使用啊?
用于另存文件

Answer 1

建议你使用 CommonDialog，那三件兵器已经没有人使用了。

Answer 2

同上添加CommonDialog控件到常用工具栏：工程/部件/Microsoft/CommonDialog Control 6.0

Answer 3

Private Sub DirList_Change()
    ' 更新文件列表框，使它与目录列表框保持同步。
    filList.Path = dirList.Path
End SubPrivate Sub DirList_LostFocus()
    dirList.Path = dirList.List(dirList.ListIndex)
End SubPrivate Sub DrvList_Change()
    On Error GoTo DriveHandler
    dirList.Path = drvList.Drive
    Exit SubDriveHandler:
    drvList.Drive = dirList.Path
    Exit Sub
End SubPrivate Sub filList_Click()
    Debug.Print filList.FileName
End Sub