تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث عن ملفات
#1
السلام عليكم

أريد كود للبحث عن الملفات بالكمبيوتر حسب الاسم والتاريخ إذا ممكن 

وشكرا لكم .
الرد
تم الشكر بواسطة:
#2
اضف ال Microsoft Scripting Runtime للمشروع

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject

Dim fld As Scripting.Folder
Set fld = fso.GetFolder("d:\temp\newfolder") مسار البحث

Dim i As Integer
Dim ext As String
Dim fl As Scripting.File
For Each fl In fld.files
    'get extension
    ext = Mid(fl.Name, Len(fl.Name) - 2)
    If ext = "txt" Or ext = "fin" Then نوع الملف
        'do something with the file
    End If
Next fl

للعلم لم اجرب الكود
الرد
تم الشكر بواسطة: dr.mostashar
#3
(30-01-18, 11:48 PM)ahmed.m كتب : اضف ال Microsoft Scripting Runtime للمشروع

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject

Dim fld As Scripting.Folder
Set fld = fso.GetFolder("d:\temp\newfolder") مسار البحث

Dim i As Integer
Dim ext As String
Dim fl As Scripting.File
For Each fl In fld.files
    'get extension
    ext = Mid(fl.Name, Len(fl.Name) - 2)
    If ext = "txt" Or ext = "fin" Then نوع الملف
        'do something with the file
    End If
Next fl

للعلم لم اجرب الكود
أشكرك أخي الكريم 
لكن أرغب بأن أبحث حسب  اسم الملف و (تاريخ انشاء الملف) أيضاً
أشكرك مره آخرى
الرد
تم الشكر بواسطة:
#4
السلام عليكم
بإمكانك استخدام التابع
Dir$
أما بالنسبة للبحث بحسب الحجم فاستخدم FileLen، وبالنسبة لتاريخ الإنشاء استخدم FileDateTime في الكود
الدالتان الاخيرتان ضعهما في بنية شرط عند البحث..
وستحل المشكلة بإذن الله..

لاحظ المثال
أضف زر وتكست وليست
اكتب الكود في الزر
Dim sPath as String
sPath = "D:\Test\" & Text1.Text & ".txt"
if Dir$(sPath, VbDirectory)  <> " " Then
List1.Additem sPath 
End if
.
طور الكود بما يتناسب مع برامجك..
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] المساعدة في عملية البحث برقم السيارة من قائمة الليست فيو وادي العوضي 13 188 24-05-20, 09:36 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في عملية البحث برقم التسلسل وادي العوضي 2 63 24-05-20, 01:44 PM
آخر رد: وادي العوضي
  إظهار نتيجة البحث في ListView مصمم هاوي 1 135 17-03-20, 08:09 PM
آخر رد: مصمم هاوي
  كيفيه البحث عن نص في اكثر من ملف في فجول بيسك 6 حسين فتحي 7 322 12-03-20, 05:44 AM
آخر رد: سعود
  اريد البحث في الكومبوبوكس بدلاله كومبوبوكس اخرى mhareek 8 554 14-01-20, 05:19 AM
آخر رد: Ahmed_Mansoor
  البحث بين تاريخ باستخدام ادة calender date.ocx gonm64 4 324 05-01-20, 12:15 AM
آخر رد: Ahmed_Mansoor
  كيف البحث ب not like gonm64 2 264 22-11-19, 07:12 AM
آخر رد: gonm64
  كيف اظهر نتائج البحث في كريستال ريبورت princeofislam 6 507 30-10-19, 09:00 AM
آخر رد: Ahmed_Mansoor
  ممكن التعديل على هذا المثال تقرير البحث عن المجملات princeofislam 10 755 15-10-19, 01:41 AM
آخر رد: princeofislam
  تعديل كود البحث mustafa mohamed 1 360 16-09-19, 01:25 PM
آخر رد: عماني939

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم