高考问答郭雪芙晨翔:vb 怎样读取一个文件夹里面的指定类型的所有文件的名称?
来源：百度文库 编辑：高考问答 时间：2024/05/07 05:39:40
可以实现
可以借助文件列表框来实现
首先加入一个FileListBox 控件,然后加入一下程序
Private Sub Command1_Click()
File1.Path = "C:\Documents and Settings\Administrator\桌面\新建文件夹" '指定一个文件夹
File1.Pattern = "*.txt" '指定文件类型
Dim i As Integer
For i = 0 To File1.ListCount - 1 从列表框的第一个项目找到最后一个项目
Print File1.List(i) '依次输出该文件夹中指定类型的文件名,可以按照自己的需要输出到一个文本文件中,或者自己其他指定
Next i
End Sub
如果需要,可以把该控件的visible属性谁为false,把控件隐藏
用CommonDialog控件可以显示“打开”对话框，并可以指定文件类型
例：
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
谁说不可以，不了解不要随便答，有两种方法可以获取，第一，直接利用Dir函数来获取，第二，利用FileSystemObject（FSO）对象来获取，具体代码楼主有兴趣就M我。