excitement近义词:VB 6.0 有个问题想问一下

来源:百度文库 编辑:高校问答 时间:2024/05/13 07:55:26
我是初学者,我想问
我在网上下了一段代码,是关于搜索文件的。搜索结果输出是LIST控件显示。。我想把显示的换成FILE控件显示要怎么弄。。
原本代码如下:

Dim ff() As String '定义一个字符串数组用来保存找到的文件名称
Dim fn As Long '保存找到的文件数目
List1.RemoveItem
fn = TreeSearch("F:", Text1.Text + "*.*", ff()) '这里的"C:"就是盘符,这里的"*.exe"就是搜索的文件类型
Label3.Caption = "找到文件数目为" & fn
For I = 1 To fn
List1.AddItem ff(I)

就是LIST1显示搜索到的文件,我想用FILELISTBOX显示结果该怎么显示?
还有就是LIST1显示出来的文件我要拷贝。要什么代码?例如把搜索出来的文件拷贝到D:根目录下

大家帮忙教教我~~谢谢