如何显示文件和目录

Question

在控件里面可以显示文件和目录

Answer 1

用FILELISTBOX控件
Private Sub cmdfile_Click()
    CDialog.InitDir = "c:\"
    CDialog.Filter = "XLS Files (*.txt)|*.txt"
    CDialog.FilterIndex = 1
    CDialog.FileName = ""
    CDialog.ShowOpen
    If Len(CDialog.FileName) = 0 Then Exit Sub
    text1.text= CDialog.FileName
end sub

Answer 2

用DirListBox和FileListBox或CommonDialog控件(工程/部件/Microsoft/CommonDialog Control 6.0)