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