نشان دادن لیست فایلهای یک دایرکتوری در یک listbox در vb

saeid_omrani · Sep 6, 2004

سلام
می خواستم لست فایلهای یک دایرکتوری رو تو یه لیست باکس نشون بدم .
لیست فایلها رو در یه آرایه به اسم arr2 ریختم.

حالا برای نشون دادن اونا باید چیکار کنم ؟

موقعی که به شکل زیر می نویسم میشه چندتا رو نشون داد اما همه نه :

Me.ListBox1.Items.AddRange(New Object() {arr2(0), arr2(1), arr2(2), arr2(3)})

برای اینکه کل آرایه رو نشون بدم باید چیکار کنم ؟
ممنون

.:Cracki:. · Sep 6, 2004

خيلي آسونه
مي خواي فايلهاي يه دايركتوري رو توي ليست ببيني ؟
يهFileListBox اضافه كن و اين دستور رو لود فرم بنويس !
File1.Path = App.Path

saeid_omrani · Sep 7, 2004

سلام
از جوابتون ممنون
بذارد سوالم رو ان جوری بگم :
من یه آرایه دارم arr . حالا می خوام که listbox اعضای اون آرایه رو نوشن بده . چیکار باد کنم؟
ممون

Payam Moradi · Sep 7, 2004

سلام
براي ليست كردن فايلهاي يك دايركتوري از Microsoft Scripting Runtime استفاده كنيد. كافيه به منوي Project و زير منوي References آن را پروژه اضافه كرده و از دستور ذيل براي ليست كردن فايل ها استفاده نماييد:

کد:

Private Sub listfiles()
  Dim fso As FileSystemObject
  Dim fol As Folder
  Dim fil As File

    list1.Clear    
    Set fso = New FileSystemObject
    Set fol = fso.GetFolder("C:\Program Files\")
    For Each fil In fol.Files
      List1.AddItem fil.Name
     Next
    Set fso = Nothing
    Set fol = Nothing
End Sub

شما به جاي C:\Program Files\ نام پوشه مورد نظر و به جاي List1 نام ليست باكس مورد نظر خود را درج كنيد.
براي انتقال اعضاي يك آرايه به يك ليست باكس از كد ذيل استفاده نماييد :

کد:

list1.Clear
For i = LBound(array1) To UBound(array1)
  List1.AddItem array1(i)
 Next

موفق باشيد :wink:

.:Cracki:. · Sep 7, 2004

مگه نمي خواي فايل هاي يه دايركتوري توي ليست باكس نمايش داده بشه ؟
خب FileListBox رو براي همين ساختن ديگه
به فرم اضافش كن بعد حالا آدرس يا Path مربوطه كه دلتون مي خواد رو بديد
مثلا در هنگام لود شدن فرم اينو بنويس تا Path فايل ليست باكس رو مشخص كني :
File1.Path = App.Path
حالا بعد از لود شدن فرم توي ليست باكس تمام فايل هاي توي پوشه برنامه رو مي توني ببيني !
App.Path رو هم مي توني به هر جا مي خواي تغير بدي مثلا

کد: