file

[morika]

سلام
1-می خواستم بدونم چه جوری میشه تمام فایلهای انتخاب شده در کنترل file رو به listbox انتقال داد
2-چه جوری میشه با زدن یک کلید تمام فایلهای موجود در لیست باکس رو هیدن کرد
3-چه جوری میشه با زدن یک کلید تمام فایهای کنترل file رو انتخاب کرد
ممنون

[xxxxx_xxxxx]

1-می خواستم بدونم چه جوری میشه تمام فایلهای انتخاب شده در کنترل file رو به listbox انتقال داد



Private Sub Command1_Click()
File1.ListIndex = 0
List1.AddItem File1.List(0)
For i = 1 To File1.ListCount - 1
List1.AddItem File1.List(i)
File1.ListIndex = File1.ListIndex + 1
Next i
End Sub




2-چه جوری میشه با زدن یک کلید تمام فایلهای موجود در لیست باکس رو هیدن کرد



Private Sub Command2_Click()
File1.ListIndex = 0
SetAttr File1.Path & "\" & File1.FileName, vbHidden
For i = 1 To File1.ListCount - 1
SetAttr File1.Path & "\" & File1.FileName, vbHidden
File1.ListIndex = File1.ListIndex + 1
Next i
End Sub

listindex عنصر انتخاب شده از فايل و يا ليست باكس است.
listcount تعداد عناصر فايل و يا ليست باكس است.

موفق باشيد/

[iranmdp]

چه جوری میشه کل فایل های دسترسی غیر مجاز ویندوز رو شناسایی کرد و بعد پاک یا تغییر داد ؟
:متعجب: سوال عجیب مرا هم یکی پاسخ بده که خیلی فکر منو مشغول کرده !!