گرفتن نام فایل ها در یک پوشه

[fileman 328]

سلام به همگی

کسی میدونه چطور میشه نام فایل های یه پوشه خاص رو گرفت و توی یک لیست نشون داد؟ (فقط نام فایل ها)

پیشاپیش ممنون از راهنماییتون

[Kazem Forghani 2,927]

سلام ،

با استفاده از کد زیر می تونید لیست فایل ها و پوشه ها رو بدست بیارید:

Dim dir As String = File.DirRootExternal
Dim l As List
l.Initialize2(File.ListFiles(dir))
For i = To l.Size-1
	If File.IsDirectory(dir, l.Get(i)) = False Then
		Log(l.Get(i)
	End If
Next

در کد بالا ما ابتدا لیست پوشه ها و فایل ها رو می گیریم و در یک لیست می ریزیم ، بعد در حلقه چک می کنیم اگر اون نام یک فایل بود اون رو لاگ کنه در غیر اون صورت بره سراغ نام بعدی برای چک کردن.