گرفتن لیست فایل های یک دایرکتوری

[khz-web1]

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




Dim mmm As String
mmm = TextBox1.Text
For i = 0 To Directory.GetDirectories("mmm").Length - 1


ListBox1.Items.Add(i)
Next

شما دوستان راه حلی دارید واسه اینکار...؟

[khz-web1]

مشکلم حل شد



Dim targetDirectory As String
targetDirectory = "D:\Downloads\osol sarparasti"
Dim subdirectoryEntries As String() = Directory.GetFiles(targetDirectory)
Dim subdirectory As String
For Each subdirectory In subdirectoryEntries
ListBox1.Items.Add(subdirectory)
Next subdirectory

می خواستم حالا بدونم چجوری میشه لیست رو فیلتر کرد تو لیست باکس.... مثلا : فایل های فقط با پسوند PDF رو نمایش بده....

[Hadiir.net]

خیلی ساده از روی پسوند شون



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As String = "C:\Documents and Settings\SoRna\Desktop\test.bmp"
Dim len As Short = x.Length
Dim start As Short = (len - 3)
Dim format As String = x.Substring(start, 3)

If format = "bmp" Then
Me.ListBox1.Items.Add(x)
End If
End Sub

[Sub Zero]

به این صورت میتونید :

Dim Directory As New IO.DirectoryInfo(YourPath)
Dim Files() As IO.FileInfo = Directory.GetFiles("*.PDF")
For Each File As IO.FileInfo In Files
ListBox1.Items.Add(File.Name)
Next

YourPath : مسیر دایرکتوری مورد نظره

[khz-web1]

فرض کنید که من یه پوشه تو پروژه دارم که فایل های PDF رو فقط نگهداری می کنه .... و مثلا با آدرس زیر باشه
D:\sample\WindowsApplication1\WindowsApplication1\ bin\Debug\pdf
حالا من اگه این آدرس رو به
Dim Directory As New IO.DirectoryInfo(YourPath
بدم ....
و بعد برنامه رو تحویل مشتری بدم 100% به مشکل بر می خوره ....

من می خوام مسیر جاری خودش بدست بیاره .... و با آدرس دادن دیگه مشکل نداشته باشه ... مثل همون کده که تو کانکشن استرینگ می نوشتیم تا مسیر جاری فایل اکسس رو بدست بیاره ... ولی اینبار می خوام مسیر جاری پوشه رو بدست بیاره ....

[Sub Zero]

Dim YourPath As String = String.Format("{0}\PDFDirectory", My.Application.Info.DirectoryPath)