منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

وشكرا لكم .

اضف ال 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

للعلم لم اجرب الكود

(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

للعلم لم اجرب الكود

أشكرك أخي الكريم 
لكن أرغب بأن أبحث حسب  اسم الملف و (تاريخ انشاء الملف) أيضاً
أشكرك مره آخرى

السلام عليكم
بإمكانك استخدام التابع
Dir$
أما بالنسبة للبحث بحسب الحجم فاستخدم FileLen، وبالنسبة لتاريخ الإنشاء استخدم FileDateTime في الكود
الدالتان الاخيرتان ضعهما في بنية شرط عند البحث..
وستحل المشكلة بإذن الله..

---

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