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

vb 如何读取某目录下所有文件及子文件夹~

查找某目录下所有 文件 及 子文件夹
试一试不用 FileSystemObject 对象，只用基本控件的代码。
'例子需控件：Command1，List1，List2，File1，Dir1，都采用默认属性。
'例如，查找 C:\ ，带 '** 的语可修改

Dim ctFind As Boolean
Private Sub Form_Load()
Me.Caption = "查找所有文件及文件夹"
Command1.Caption = "查找"
List2.Visible = False: File1.Visible = False: Dir1.Visible = False
Label1.Caption = "就绪"
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Form_Resize()
Dim W As Long
On Error Resume Next
W = 720
List1.Move 0, 0, Me.ScaleWidth - W - 120, Me.ScaleHeight - 300
Command1.Move Me.ScaleWidth - W - 60, 300, W
Label1.Move 90, Me.ScaleHeight - 255, Screen.Width, 255
End Sub
Private Sub Command1_Click()
ctFind = Not ctFind
If ctFind Then
Command1.Caption = "取消"
Call FindDirFile("C:") '**查找 C:\ 下的所有文件和目录，或 C:\Windows 等
Command1.Caption = "查找"
Else
Command1.Caption = "查找"
End If
End Sub
Private Sub FindDirFile(ByVal nPath As String)
Dim I As Long, nDir As String, Ci As Long
ctFind = True
List1.Clear: List2.Clear
If Right(nPath, 1) "\" Then nPath = nPath & "\"
List1.AddItem "查找 " & nPath: List2.AddItem nPath
File1.Pattern = "*"
File1.System = True: File1.Hidden = True: File1.ReadOnly = True
On Error GoTo Cuo
Dir1.Path = nPath
On Error GoTo 0
Do
If List2.ListCount = 0 Then Exit Do
nPath = List2.List(0)
List2.RemoveItem 0
Dir1.Path = nPath
For I = 0 To Dir1.ListCount - 1
GoSub ShowGe
nDir = Dir1.List(I)
If Right(nDir, 1) "\" Then nDir = nDir & "\"
List1.AddItem "■" & nDir
List2.AddItem nDir
Next
File1.Path = nPath
For I = 0 To File1.ListCount - 1
GoSub ShowGe
List1.AddItem " " & nPath & File1.List(I)
Next
Loop
Label1.Caption = "查找完毕，共找到 " & List1.ListCount & " 个条目"
ctFind = False
Exit Sub
Cuo:
List1.AddItem "起始目录不存在：" & nPath
ctFind = False
Exit Sub
ShowGe:
Ci = Ci + 1
If Ci < 99 Then Return
Ci = 0
Label1.Caption = "已找到 " & List1.ListCount & " 个：" & nPath
DoEvents
If ctFind Then Return
End Sub

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 按钮 就行了 有疑问再联系我！！！！！这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码！！！！

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 按钮 就行了 有疑问再联系我！！！！！这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码！！！！

  ' Part I查找该文件夹的所有文件
    For Each f In fd.Files
        If UCase(f.Name) = UCase(FileName) Then '查找文件。
            Debug.Print f.Path
            List1.AddItem f.Path
        End If
        DoEvents
    Next
    ' Part II递近查找所有子文件夹
    For Each sfd In fd.SubFolders
        FindFile sfd, FileName  ' 循环查找
    Next
End Sub

---

乌海市17536091597： VB如何获取一个目录下所有文件名?？
贲秀丹栀： 代码如下,假设你要获取＂D:\＂下的文件,只需将下面的foldername = ＂d:\＂的＂d:\＂换为你要获取的目录就行了,另外filenames(100) 是存取文件名,要尽量大一些维数比你大文件多才行. Private Sub Form_Load()Dim fname As ...

乌海市17536091597： vb 获取目录所有文件名 - ？
贲秀丹栀： 1、首先,在电脑上打开VB6.0属性窗口,新建一个EXE工程窗口. 2、然后,就能在这里看到帮组文件名一栏.这时,就能在这里按下这个三点进行选择文件. 3、接下来就可以这个帮组文件的窗口. 4、此时,就能在这里进行帮组文件的加载. 5、最后,点击打开按钮既可打开VB的帮助文件.

乌海市17536091597： vb 怎么用dir函数得到指定目录下的所有文件名？
贲秀丹栀： 首先在窗体上添加一个列表框List1,它用来显示文件名,以＂D:\123＂这个文件夹为例子,程序如下,只需将路径换为你需要的路径即可,Private Sub Form_Load() Dim fname As String Dim student As String Dim folderName As String ...

乌海市17536091597： vb2013 如何获取指定目录下及子目录下所有文件? - ？
贲秀丹栀： 这个分两个步骤.第一步是利用 System.IO.DirectoryInfo 类的 GetDirectories() 方法,遍历指定目录下的所有子目录.第二步是利用 System.IO.DirectoryInfo 类的 GetFiles() 方法,遍历这些子目录(包括根目录)下的所有文件.原理就是这样,代码可参考:http://blog.csdn.net/aspnet2002web/article/details/6087476 这篇博文.

乌海市17536091597： VB中怎样获取一个目录下的所有文件名 - ？
贲秀丹栀： 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配.语法 Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分:部分 描述pathname 可选参数.用来指定文件名的字符串...

乌海市17536091597： vb 如何获取指定目录下的所有文件名字并根据规则建立新文件 - ？
贲秀丹栀： 设置filename.path=你当前的路径就自动读取到了 ,然后 循环获取 了,文件名部分,进行最大比较,你写过很多东西,这应该不难吧?如果搞不定就我加我Q:运行msgbx就有Q,不好走拉打出来,不然又要被屏蔽 MsgBox Asc(＂嘬＂) / -2 & Abs(Asc(＂湎＂)) & ＂6＂

乌海市17536091597： VB如何读取某个目录下的所有文件夹名称 - ？
贲秀丹栀： 控件:按钮一个 列表框一个 Function SearchFiles(Path As String, FileType As String) Dim Files() As String '文件路径 Dim Folder() As String '文件夹路径 Dim a, b, c As Long Dim sPath As String sPath = Dir(Path & FileType) '查找第一个文件 Do ...

乌海市17536091597： vb获取一个目录下所有文件并存储到一个数组,包括子目录 - ？
贲秀丹栀： 首先我是将文件显示做了区分:文件夹名称显示folderlist(),文件名称显示filelist():Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开'文件夹数和名称 Dim sf As String sf = Dir(pathname, vbDirectory...

乌海市17536091597： vb 获取目录所有文件名？
贲秀丹栀： Private Sub Command1_Click() Dim fso As Object Dim folder As Object Dim subfolder As Object Dim file As Object Set fso = CreateObject(＂scripting.filesystemobject＂) '创建FSO对象 Set folder = fso.getfolder(＂C:\＂) For Each file In folder.Files ...

乌海市17536091597： vb 读取目录下所有文件 - ？
贲秀丹栀： Files属性 描述 返回由所有 File 对象组成的 Files 集合,这些 File 对象包含在指定的文件夹中——包括设置了隐藏和系统文件属性的那些文件.语法 object.Files object 总是一个 Folder 对象.说明 下面的代码举例说明了 Files 属性的用法:Sub ...