如何用VB获得某一目录下的所有文件和文件夹名称？

Dim a() As String

Private Sub Dir1_Change()

File1.Path = Dir1.Path

Label1.Caption = Dir1.Path

End Sub

Private Sub Drive1_Change()

On Error GoTo err1

Dir1.Path = Drive1.Drive

Exit Sub

err1:

MsgBox Err.Description, vbInformation + vbOKOnly, "提示"

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim ifieldcount As Integer, irecordcount As Integer

Dim wdapp As Word.Application

Dim wddoc As Word.Document

Dim atable As Word.Table

If Option2.Value = True Then

ReDim a(1 To File1.ListCount)

For i = 1 To File1.ListCount

b = File1.List(i)

a(i) = b

Next

End If

If Option1.Value = True Then

ReDim a(1 To Dir1.ListCount)

For i = 1 To Dir1.ListCount

b = Dir1.List(i)

a(i) = b

Next

End If

End Sub

这段程序 复制过去 就行了 创建的控件有 两个option 让你选择 要提取文件夹 还是文件歼好路径的 选中option 1 就是提取文件夹的 option2 就是提取文件的 然后再创建 Drive1 Dir1 File1 这三个亮改消 选择文件路径的 控件 再加一个 command 按钮 就行了 有疑问再联系我！！！！敬知！这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码！！！！

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

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

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

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

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

窗体上有四个控件，命令按钮command1。列表框list1。驱动器列表Drive1。文件夹列表Dir1。

驱动器和文件夹列表是用来选择你想要搜索的文件夹。

程如运序运行时选中你想要搜索的文件夹，单击搜虚扰索按钮。该文件夹下面所有的文件及子文件夹里面的文件都列到列表框中。

将代码差橡旦复制到窗体即可。代码如下：

Private Sub Command1_Click()

List1.Clear

sosuofile (Dir1.List(Dir1.ListIndex))

MsgBox "搜索完毕！，共找到" + Str(List1.ListCount) + "条记录。", vbOKOnly + vbExclamation, "提示"

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Sub sosuofile(MyPath As String)

Dim Myname As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <>"\\" Then MyPath = MyPath + "\\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <>""

If Myname <>"." And Myname <>".." Then

If (GetAttr(MyPath &Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录

idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else: List1.AddItem "" &MyPath &" " &Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call sosuofile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

Private Sub Form_Load()

Command1.Caption = "搜索"

End Sub

---