如何在一个Listbox控件中显示目录名,在另一个控件中显示对应目录下的日志文件
编号：QA003646
建立日期: 2000年12月10日 最后修改日期：2000年12月10日
所属类别：
王雅静:
如何在一个Listbox控件A中只显示本地硬盘上的文件目录名(不显示文件名本身!!),在另一个Listbox控件B中只显示A中的相对应目录下的日志文件(*.log)????小妹感激不尽!!
回答:
为什么不采用目录控件和文件列表控件？那样的话会十分之简单。如果真用list控件的话，程序如下：
新建一个工程，在窗口中放入两个LIST控件，分别是LIST1和LIST2
Private Sub Form_Load()
List1.Clear
List2.Clear
searchdir = "c:\*."
'VB的DIR函数不知道是不是有问题，如果只用dir("c:\",vbDirectory)的话，
会显示出所有目录和文件。这里用*.是因为大多数情况下没有人用?.?的形式来
建立目录。
founddir = Dir(searchdir, vbDirectory)
While founddir <> ""
List1.AddItem founddir
founddir = Dir()
Wend
searchfile = "c:\*.log"
foundfile = Dir(searchfile, vbNormal)
While foundfile <> ""
List2.AddItem foundfile
foundfile = Dir()
Wend
End Sub
此问题由少男回答。
| |
|
|
| |
|
|
