vb获取文件夹

㈠ VB获取文件夹路径

只说
原理
。先建立FSO
对象遍历磁盘
查找名称为"“的文件夹
，返回全路径

㈡ VB查找指定文件夹并获取文件路径的代码

DimkzAsBoolean
PrivateFunctionSearchFiles(PathAsString,FileTypeAsString)
IfkzThenExitFunction
DimFiles()AsString'文件路径
DimFolder()AsString'文件夹路径
Dima,b,cAsLong
DimsPathAsString
OnErrorGoToCheckError
IfRight(Path,1)<>""ThenPath=Path&""
sPath=Dir(Path&FileType)'查找第一个文件
DoWhileLen(sPath)'循环到没有文件为止
a=a+1
ReDimPreserveFiles(1Toa)
Files(a)=Path&sPath'将文件目录和文件名组合,并存放到数组中
List1.AddItemFiles(a)'加入list控件中
sPath=Dir'查找下一个文件
DoEvents'让出控制权
Loop
sPath=Dir(Path,vbDirectory)'查找第一个文件夹

DoWhileLen(sPath)'循环到没有文件夹为止
IfLeft(sPath,1)<>"."Then'为了防止重复查找
IfGetAttr(Path&sPath)AndvbDirectoryThen'如果是文件夹则。。。。。。
b=b+1
ReDimPreserveFolder(1Tob)
Folder(b)=Path&sPath&""'将目录和文件夹名称组合形成新的目录,并存放到数组中
EndIf
EndIf
sPath=Dir'查找下一个文件夹
DoEvents'让出控制权
Loop
CheckError:
Forc=1Tob'使用递归方法，遍历所有目录
SearchFilesFolder(c),FileType
Next
EndFunction
PrivateSubCommand1_Click()
IfCommand1.Caption="查找"Then
Command1.Caption="停止"
kz=False
List1.Clear
SearchFilesText1.Text,Text2.Text'查找所有文件
Else
Command1.Caption="查找"
kz=True
EndIf
EndSub
PrivateSubForm_Load()
Text1.Text="c:"
Text2.Text="测试*.*"
EndSub

㈢ vb获取指定文件夹内的文件的文件名

已经完成，请留下E _ M _ A _I L或者用下面内容

1.建立一个窗体
2.放置一个文本框，用于输入索引路径，文本框命名为txtDirPath
3.放置一个按钮，用于开始索引，按钮命名为cmdSearch
4.放置一个Label，用于显示索引进度，命名为lblState
5.放置一个Command按钮，用于保存索引结果，命名为cmdSave

程序代码如下：
Dim searchingPath As String

Dim pl As Long
Dim finalOut As String
Dim c As Long

Private Sub cmdSave_Click()
Open "c:\out.txt" For Output As #1
Print #1, finalOut
Close #1
lblState.Caption = "保存完成! 已经写入到C:\Out.txt": DoEvents
End Sub

Private Sub cmdSearch_Click()
c = 0
If Right(txtDirPath.Text, 1) <> "\" Then txtDirPath.Text = txtDirPath.Text + "\"
pl = Len(txtDirPath.Text)
SearchFile txtDirPath.Text
End Sub

Private Sub Form_Load()
Me.Show
txtDirPath.SetFocus
txtDirPath.SelStart = Len(txtDirPath.Text)
End Sub

Private Sub txtDirPath_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmdSearch_Click
End Sub

Sub SearchFile(strPath As String)
On Error Resume Next
Dim strName As String
Dim dir_i() As String
Dim i As Long, idir As Long
Dim showStr As String

If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
strName = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Len(strName) > 0
If strName <> "." And strName <> ".." Then
If (GetAttr(strPath & strName) And vbDirectory) = vbDirectory Then
idir = idir + 1
ReDim Preserve dir_i(idir) As String
dir_i(idir - 1) = strName
Else
c = c + 1
showStr = Replace(Mid(strPath, pl + 1), "\", "><")
finalOut = finalOut + "<" + Left(showStr, Len(showStr) - 1) + strName + vbCrLf
End If
End If
strName = Dir

If searchingPath <> strPath Then
lblState.Caption = "索引数: " & CStr(c) & "，搜索目录: " & strPath
searchingPath = strPath
DoEvents
End If
Loop

For i = 0 To idir - 1
Call SearchFile(strPath + dir_i(i))
Next i

Erase dir_i

lblState.Caption = "搜索完成，总计文件数: " & CStr(c)
End Sub

㈣ VB中有没有一个函数，可以获取文件夹里的文件数量（包括文件夹）。

dir函数可以查询文件夹和文件
语法：dir(路径，[类型])
看MSDN吧，帮助文件写地很详细

㈤ vb读取文件夹的文件

'添加一个Microsoft Common Dialog Control 6.0部件
'添加一个CommandButton控件
'添加一个ListBox控件
'添加一个Label控件
'------------------------------------------------

'读写INI文件
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function SaveINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lplFileName As String) As Long

'读写INI文件
Function GetINI(AppName As String, KeyName As String, filename As String) As String
Dim RetStr As String
RetStr = String(10000, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))

'读：Rtn = GetINI(AppName, KeyName, filename)
'写：SaveINI appname,keyname,string,filename
End Function

Private Sub Command1_Click()
CommonDialog1.Filter = "所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.filename
End Sub

Private Sub Form_Load()
For i = 0 To Val(GetINI("listcount", "Count", App.Path & "\st.ini")) - 1
List1.AddItem GetINI("list", CStr(Format(i, "000")), App.Path & "\st.ini"), i
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 1 To List1.ListCount
SaveINI "list", CStr(Format(i - 1, "000")), List1.List(i - 1), App.Path & "\st.ini"
Next i
SaveINI "ListCount", "Count", List1.ListCount, App.Path & "\st.ini"
End Sub

Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub

㈥ vb获取文件夹包含文件数量

VB可以使用DriveListBox
控件，DirListBox
控件和
FileListBox
控件组合可查看任何磁盘任何文件夹下的文件数和文件夹数。
DriveListBox
控件，在运行时，由于有
DriveListBox
控件，所以可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的
磁盘文件
列表中打开文件。
DirListBox
控件，
在运行时，DirListBox
控件显示目录和路径。这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。
FileListBox
控件，在运行时，在
Path
属性指定的目录中，FileListBox
控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。
以下是具体代码：
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '设置目录路径。
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path '设置文件路径。
Text1 = File1.ListCount
Text2 = Dir1.ListCount
Text3 = Val(Text1) + Val(Text2)
End Sub
Private Sub Form_Load()
Dir1.Path = Drive1.Drive '设置目录路径。
File1.Path = Dir1.Path '设置文件路径。
End Sub实施效果：

㈦ vb 怎样读取一个文件夹里面的指定类型的所有文件的名称

谁说不可以，不了解不要随便答，有两种方法可以获取，第一，直接利用Dir函数来获取，第二，利用FileSystemObject（FSO）对象来获取，具体代码楼主有兴趣就M我。