تقييم الموضوع :
  • 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
.
طور الكود بما يتناسب مع برامجك..
الرد
تم الشكر بواسطة:



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


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