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我。