31-01-18, 01:09 AM
(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
للعلم لم اجرب الكود
لكن أرغب بأن أبحث حسب اسم الملف و (تاريخ انشاء الملف) أيضاً
أشكرك مره آخرى
