ورود

View Full Version : بدست آوردن لیست فایل های موجود در یک مسیر



mc_laren
شنبه 22 دی 1386, 11:09 صبح
به نام خدا
با عرض سلام و خسته نباشی خدمت دوستان عزیز
آیا کسی از شما راهی بلده تا بتونیم یک لیست از فایل های
موجود در یک مسیر خاص را بدست بیاوریم تو.جه کنید فایل ها
چه سیستمی باشند چه مخفی در لیست نشان داده بشه
در ضمن اگه بتونه حجم فایل رو هم نشون بده دیگه عالی میشه
با تشکر

MH2538
شنبه 22 دی 1386, 11:31 صبح
به این آدرس مراجعه کن:


Imports System.IO


Dim sFSize As String = ""
Dim dInfo As New IO.DirectoryInfo("C:\Windows")
Dim arFi As IO.FileInfo() = dInfo.GetFiles("*.exe")
Dim fInfo As IO.FileInfo

For Each fInfo In arFi
lbFileList.Items.Add(fInfo.Name & ", " & fInfo.FullName)
lbFileList.Items.Add("File Size: " & sFSize)
lbFileList.Items.Add("Read Only: {0}" & (fi.Attributes.ReadOnly = True).ToString)
Next

برای اطلاعات بیشتر به این سایت مراجعه کن:http://www.thescarms.com/dotNet/listfiles.aspx