vb 获取目录所有文件名

1、首先，在电脑上打开VB6.0属性窗口，新建一个EXE工程窗口。

2、然后，就能在这里看到帮组文件名一栏。这时，就能在这里按下这个三点进行选择文件。

3、接下来就可以这个帮组文件的窗口。

4、此时，就能在这里进行帮组文件的晌氏加载。

5、最后，点宴弊散击打开按钮既可打开卜拿VB的帮助文件。

VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。

FileListBox 控件，在运行时，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组郑凳文件。

以下是组合使用DriveListBox 、团丛弯控件DirListBox 控件和FileListBox 控件来获取硬盘下任何一个文件夹内塌闷的文件名。

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Dim i As Long

Debug.Print "目录夹内存在" & File1.ListCount & "个文件。"

End Sub

可以借助文件列表框来实现

首先加入一个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,把控件隐藏