بدست آوردن تعداد فایل در مسیر خاص

[irprodesigner]

سلام من میخوام بدونم چطور میشه تعدا د فایلهای داخل یه پوشه رو بدست آورد.
با dir نتونستم.

[SlowCode]

سلام با dir هم میتونی ولی راحت ترین راه استفاده از filelistbox و dirlistbox هست.
یکم جستجو کن پیدا میکنی، مطالب زیادی در موردش هست.

[irprodesigner]

مرسی مشکل حل شد

[irprodesigner]

حالا اگه بخوایم این فایلها با یه پسوند خاص باشه چه کنیم

[SlowCode]

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

[irprodesigner]

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

[SlowCode]

بله، اگه با FileListBox کار میکنی، از این کد استفاده کن:

For i = 0 To File1.ListCount
If LCase(Right(File1.List(i), 4)) = ".exe" Then List1.AddItem File1.List(i)
Next

[irprodesigner]

خطا میده expected array

[SlowCode]

بله توی حلقه File1.ListCount-1 رو جایگزین کن.

[محسن واژدی]

سلام علیکم
اگر Pattern شی File-List را برابر "exe" قرار بدهیم (File-List را فیلتر کنیم تا تنها فایل های EXE لیست بشن) نتیجه زودتر برگشت داده شود:
Private Sub Command1_Click()
Dim i%
With File1
.Pattern = "*.exe"
For i = 0 To .ListCount-1
List1.AddItem .List(i)
Next
End With
End Sub

موفق باشید

[irprodesigner]

همین کارو کردم بازم خطا میده

[irprodesigner]

سلام علیکم
اگر Pattern شی File-List را برابر "exe" قرار بدهیم (File-List را فیلتر کنیم تا تنها فایل های EXE لیست بشن) نتیجه زودتر برگشت داده شود:
Private Sub Command1_Click()
Dim i%
With File1
.Pattern = "*.exe"
For i = 0 To .ListCount-1
List1.AddItem .List(i)
Next
End With
End Sub

موفق باشید

آقا محسن میشه توضیح بدی این کد هم لیستمو مرتب کرد هم فایل رو چطوری شد؟؟؟؟؟

[irprodesigner]

LCase را به Left تغییر دهید

موفق باشید

بازم خطا میده

[SlowCode]

بله، وقتی شما pattern رو تنظیم میکنی خودش فقط فایلهای exe رو لیست میکنه. ولی ایشون کدی برای مرتب شدن ننوشتن.
شما از کدی که من گذاشتم استفاده نکن.

[محسن واژدی]

آقا محسن میشه توضیح بدی این کد هم لیستمو مرتب کرد هم فایل رو چطوری شد؟؟؟؟؟
بله، اگه خصیصه Pattern را بر روی exe کنیم تنها فایل های که پسوند exe دارند لیست میشوند، به عنوان مثال در مقدار زیر تنها فایل های jpg و png لیست میشن:
File1.Pattern = "*.jpg;*.png"

در مورد مرتب شدن، کنترل لیست را براساس حروف الفبا مرتب میکند

موفق باشید

[محسن واژدی]

بازم خطا میده
چه خطایی میدهد؟ (متن خطا)

[irprodesigner]

با تشکر از همگی

[irprodesigner]

چه خطایی میدهد؟ (متن خطا)

expected array

[محسن واژدی]

expected array
اگه هنوز مشکل برطرف نشده، ممکن است مشکل از کنترلها باشد، چک کنید ممکن است یکی از کنترلها آرایه باشد (کد آقای محسن15 هم مشکلی نداشت)

موفق باشید

[SlowCode]

احتمال میدم که شما توی برنامتون از آرایه ای به نام i استفاده کردین، به همین دلیل برنامه خطا میگریه. پس توی حلقه به جای متغیر i از یه اسم دیگه استفاده کن.

With File1
.Pattern = "*.exe"
For z = 0 To .ListCount-1
List1.AddItem .List(z)
Next
End With