View Full Version : سوال: بدست اوردن مسير تمام فايل هاي موجود در يك پوشه؟
ebrahimv
جمعه 24 دی 1389, 14:56 عصر
سلام
چگونه ليست فايل هاي موجود در يك دايكتري را به دست اوريم؟
ebrahimv
جمعه 24 دی 1389, 15:17 عصر
پيدا كردم بايد بيشتر ميگشتم
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
جمعه 24 دی 1389, 21:29 عصر
ساده ترش اینه
listbox1.Items.AddRange(IO.Directory.GetFiles("d:\"))
AlgorithmX
جمعه 24 دی 1389, 22:01 عصر
ساده ترش اینه
listbox1.Items.AddRange(IO.Directory.GetFiles("d:\"))
سلام!
این سورس کار کرد اما فقط فایلهای موجود در پوشه خود برنامه رو اعلام میکنه نه اونایی که تو d:\
AlgorithmX
جمعه 24 دی 1389, 22:04 عصر
سلام!
این سورس کار کرد اما فقط فایلهای موجود در پوشه خود برنامه رو اعلام میکنه نه اونایی که تو d:\
البته تصحیح کنم که اگر بنویسی "C:" این کارو انجام میده اگر d نویسی هیچی نمایش نمیده!!
omid-vbAuto
جمعه 24 دی 1389, 22:47 عصر
ساده ترش اینه
listbox1.Items.AddRange(IO.Directory.GetFiles("d:\"))
درسته ساده تر هست اما ناقص تر هم هست.
چون که قدرت انتخاب نوع فایل رو از دست میدی.!!!
parsdarab
جمعه 24 دی 1389, 23:30 عصر
اگه بخای اینو توی تری ویو نمایش بدی به صورت زیره
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.