vb读取文件夹下的文件名_VB 读取某文件夹里文件名

VB 选取文件夹内文件的文件名

用file控件，先把text1赋值给控件，然后调用file.path

VB 读取某文件夹里文件名

MsgBox Dir(＂D:\apple\*orange*.*＂)

VB获取文件夹中的文件的名

f = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

' Dir的第二个参数可以设置你要获取哪些各类的文件或文件夹，vbDirectory是文件夹，vbHidden是隐藏文件，vbNormal是一般文件，vbReadOnly是只读文件，如果不需要的话就去掉。

While f<>""

'f就是一个文件名，可以在这里对文件f进行处理

f = Dir()

WEnd

VB 读取文件夹名

以 c:\vb 下子文件夹为例：

Private Sub Command1_Click()

Dim s As String

List1.Clear

s = Dir("c:\vb\", vbDirectory)

Do While s <> ""

If IsNumeric(s) Then List1.AddItem s

s = Dir

Loop

End Sub

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 While Len(sPath) '循环到没有文件为止a = a + 1ReDim Preserve Files(1 To a) Files(a) = Path & sPath '将文件目录和文件名组合,并存放到数组中 List1.AddItem Files(a) '加入list控件中 sPath = Dir '查找下一个文件 DoEvents '让出控制权LoopsPath = Dir(Path & "\", vbDirectory) '查找第一个文件夹 Do While Len(sPath) '循环到没有文件夹为止 If Left(sPath, 1) < "." Then '为了防止重复查找 If GetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。 b = b + 1ReDim Preserve Folder(1 To b) Folder(b) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中End IfEnd IfsPath = Dir '查找下一个文件夹 DoEvents '让出控制权LoopFor c = 1 To b '使用递归方法，遍历所有目录 SearchFiles Folder(c), FileTypeNextEnd Function