PDA

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


omid-vbAuto
دوشنبه 04 مهر 1390, 14:05 عصر
با سلام دوستان

با چه دستوری و چطوری می تونیم فایل ها و فولدرهای موجود در یک درایو یا فولدر رو بدست بیاریم و نمایش بدیم مثلا تری ویو و یا لیست ویو ...

با تشکر
مرتضی تقدمی
دوشنبه 04 مهر 1390, 14:23 عصر
سلام
یه برنامه گذاشتم که از توی همین سایت گرفتمش.
به زبان VB6 نوشته شده اما می تونید با انجام تغییرات توی اون به کد دلخواه برسید.
موفق باشید
M.KH-SH
دوشنبه 04 مهر 1390, 14:57 عصر
For Each file As String In IO.Directory.GetFiles("E:\Tools\Graphic\Adobe Photoshop Elements 7")
ListBox1.Items.Add(file)
ListBox1.Refresh()
Next
omid-vbAuto
سه شنبه 05 مهر 1390, 14:12 عصر
For Each file As String In IO.Directory.GetFiles("E:\Tools\Graphic\Adobe Photoshop Elements 7")
ListBox1.Items.Add(file)
ListBox1.Refresh()
Next

پوشه ها پس چطوری؟؟؟؟
M.KH-SH
سه شنبه 05 مهر 1390, 14:44 عصر
For Each file As String In IO.Directory.GetDirectories("c:\")
ListBox1.Items.Add(file)
ListBox1.Refresh()
Next