vb目錄下所有文件

㈠ VB中怎樣獲取一個目錄下的所有文件名

返回一個 String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁碟卷標相匹配。語法
Dir[(pathname[, attributes])]
Dir 函數的語法具有以下幾個部分：部分 描述pathname 可選參數。用來指定文件名的字元串表達式，可能包含目錄或文件夾、以及驅動器。如果沒有找到 pathname，則會返回零長度字元串 ("")。
attributes 可選參數。常數或數值表達式，其總和用來指定文件屬性。如果省略，則會返回匹配 pathname 但不包含屬性的文件。設置值
attributes 參數的設置可為：
常數 值 描述
vbNormal 0 (預設) 指定沒有屬性的文件。
vbReadOnly 1 指定無屬性的只讀文件
vbHidden 2 指定無屬性的隱藏文件
VbSystem 4 指定無屬性的系統文件
vbVolume 8 指定卷標文件；如果指定了其它屬性，則忽略vbVolume
vbDirectory 16 指定無屬性文件及其路徑和文件夾。
注意 這些常數是由 VBA 所指定的，在程序代碼中的任何位置，可以使用這些常數來替換真正的數值。說明
Dir 支持多字元 (*) 和單字元 (?) 的通配符來指定多重文件。
由於 Macintosh 不支持通配符，使用文件類型指定文件組。可以使用 MacID 函數指定文件類型而不用文件名。比如，下列語句返回當前文件夾中第一個TEXT文件的名稱:
Dir("SomePath", MacID("TEXT"))
為選中文件夾中所有文件，指定一空串:Dir("")
在 Microsoft Windows 中，如果在Dir函數中使用MacID函數，將產生錯誤。
任何大於256的attribute值都被認為是MacID 函數的值。
在第一次調用 Dir 函數時，必須指定 pathname，否則會產生錯誤。如果也指定了文件屬性，那麼就必須包括 pathname。
Dir 會返回匹配 pathname 的第一個文件名。若想得到其它匹配 pathname 的文件名，再一次調用 Dir，且不要使用參數。如果已沒有合乎條件的文件，則 Dir 會返回一個零長度字元串 ("")。一旦返回值為零長度字元串，並要再次調用 Dir 時，就必須指定 pathname，否則會產生錯誤。不必訪問到所有匹配當前 pathname 的文件名，就可以改變到一個新的 pathname 上。但是，不能以遞歸方式來調用 Dir 函數。以 vbDirectory 屬性來調用 Dir 不能連續地返回子目錄。
提示 由於文件名並不會以特別的次序來返回，所以可以將文件名存儲在一個數組中，然後再對這個數組排序。

㈡ 如何用VB獲得某一目錄下的所有文件和文件夾名稱

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 按鈕 就行了 有疑問再聯系我！！！！！這個 只是 文件路徑 你看看 是你想要的話 我再給你寫 提取文件夾和文件名的代碼！！！！

㈢ vb2013 如何獲取指定目錄下及子目錄下所有文件

這個分兩個步驟。

第一步是利用 System.IO.DirectoryInfo 類的 GetDirectories() 方法，遍歷指定目錄下的所有子目錄。

第二步是利用 System.IO.DirectoryInfo 類的 GetFiles() 方法，遍歷這些子目錄（包括根目錄）下的所有文件。

原理就是這樣，代碼可參考：http://blog.csdn.net/aspnet2002web/article/details/6087476 這篇博文。

㈣ VB如何獲取一個目錄下所有文件名

樓上何苦那麼辛苦呢！只要加一個FileListBox控制項修改下Path的值不就好了？

㈤ vb 讀取目錄下所有文件

直接用filelistbox控制項呀。。就是做這個用的。。顯示一個路徑下的所有文件。
File1.path="c:\"
for
i=
1
to
File1.ListCount
a=file1.list(i)
這樣就把文件名逐個取出來了

㈥ vb編程：列出不同目錄下文件的文件列表

首先 肯定用到listview和listbox。列出特定文件（例如*.exe）的話 dir("c:\windows\*.exe") 可以實現。雙擊打開就是要先 在數組變數儲存這個文件的路徑 ，利用 ShellExecute 這個API實現打開文件。拖放復制的話 暫時還沒想到。

㈦ 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

㈧ VB 如何遍歷文件夾下所有文件，高手請指教

窗體上有四個控制項，命令按鈕command1。列表框list1。驅動器列表Drive1。文件夾列表Dir1。
驅動器和文件夾列表是用來選擇你想要搜索的文件夾。
程序運行時選中你想要搜索的文件夾，單擊搜索按鈕。該文件夾下面所有的文件及子文件夾裡面的文件都列到列表框中。
將代碼復制到窗體即可。代碼如下：

Private Sub Command1_Click()
List1.Clear
sosuofile (Dir1.List(Dir1.ListIndex))
MsgBox "搜索完畢！，共找到" + Str(List1.ListCount) + "條記錄。", vbOKOnly + vbExclamation, "提示"
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Sub sosuofile(MyPath As String)
Dim Myname As String
Dim dir_i() As String
Dim i, idir As Long
If Right(MyPath, 1) <> "\\" Then MyPath = MyPath + "\\"
Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目錄

idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else: List1.AddItem "" & MyPath & " " & Myname '把找到的文件顯示到列表框中

End If
End If
Myname = Dir '搜索下一項
Loop
For i = 0 To idir - 1

Call sosuofile(MyPath + dir_i(i))
Next i
ReDim dir_i(0) As String
End Sub

Private Sub Form_Load()
Command1.Caption = "搜索"
End Sub

㈨ vb如何刪除指定目錄下的全部文件

1、可以利抄用fso組件來刪除，代碼如下：

PrivateSubForm_Click()
OnErrorResumeNext
FolName="C:abc"'要刪除的文件目錄
Setfso=CreateObject("Scripting.FileSystemObject")
IfDir(FolName,vbDirectory)<>""Then
fso.DeleteFolder(FolName),True'刪除
fso.CreateFolderFolName'新建
EndIf
Setfso=Nothing
EndSub

2、用vb的kill

PrivateSubForm_Click()
kill"C:abc*.*"'刪除C:abc下的所有文件
EndSub