بدست اوردن مسير تمام فايل هاي موجود در يك پوشه؟

[ebrahimv]

سلام
چگونه ليست فايل هاي موجود در يك دايكتري را به دست اوريم؟

[ebrahimv]

پيدا كردم بايد بيشتر ميگشتم


Dim dInfo As New IO.DirectoryInfo("C:\")
Dim arFi As IO.FileInfo() = dInfo.GetFiles("*.zip")
Dim fInfo As IO.FileInfo
For Each fInfo In arFi
ListBox1.Items.Add(fInfo.Name & ", " & fInfo.FullName)
Next

[Hossis]

ساده ترش اینه


listbox1.Items.AddRange(IO.Directory.GetFiles("d:\"))

[AlgorithmX]

ساده ترش اینه
listbox1.Items.AddRange(IO.Directory.GetFiles("d:\"))

سلام!
این سورس کار کرد اما فقط فایلهای موجود در پوشه خود برنامه رو اعلام میکنه نه اونایی که تو d:\

[AlgorithmX]

سلام!
این سورس کار کرد اما فقط فایلهای موجود در پوشه خود برنامه رو اعلام میکنه نه اونایی که تو d:\

البته تصحیح کنم که اگر بنویسی "C:" این کارو انجام میده اگر d نویسی هیچی نمایش نمیده!!

[omid-vbAuto]

ساده ترش اینه


listbox1.Items.AddRange(IO.Directory.GetFiles("d:\"))

درسته ساده تر هست اما ناقص تر هم هست.

چون که قدرت انتخاب نوع فایل رو از دست میدی.!!!

[parsdarab]

اگه بخای اینو توی تری ویو نمایش بدی به صورت زیره

Form1.TreeView1.Nodes.Clear()
Dim nd As New TreeNode
Dim inifolder As String = Form1.FolderBrowserDialog1.SelectedPath.ToString
nd = Form1.TreeView1.Nodes.Add(inifolder)
'Me.Show()
Application.DoEvents()
Form1.Cursor = Cursors.WaitCursor
ScanFolder(inifolder, nd)

Form1.Cursor = Cursors.Default



Public Sub ScanFolder(ByVal folderSpec As String, ByRef currentNode As TreeNode)
Dim thisfolder As String
Dim allfolder() As String
allfolder = IO.Directory.GetDirectories(folderSpec)
For Each thisfolder In allfolder
Dim Nd As TreeNode
Nd = New TreeNode(IO.Path.GetFileName(thisfolder))
currentNode.Nodes.Add(Nd)
folderSpec = thisfolder
ScanFolder(folderSpec, Nd)
'Me.Refresh()
Next
End Sub