+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : البحث عن ملفات (/showthread.php?tid=23602)
البحث عن ملفات - dr.mostashar - 30-01-18
السلام عليكم
أريد كود للبحث عن الملفات بالكمبيوتر حسب الاسم والتاريخ إذا ممكن
وشكرا لكم .
RE: البحث عن ملفات - ahmed.m - 30-01-18
اضف ال 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
للعلم لم اجرب الكود
RE: البحث عن ملفات - dr.mostashar - 31-01-18
(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
للعلم لم اجرب الكود
لكن أرغب بأن أبحث حسب اسم الملف و (تاريخ انشاء الملف) أيضاً
أشكرك مره آخرى
RE: البحث عن ملفات - Eng27 - 10-02-18
السلام عليكم
بإمكانك استخدام التابع
Dir$
أما بالنسبة للبحث بحسب الحجم فاستخدم FileLen، وبالنسبة لتاريخ الإنشاء استخدم FileDateTime في الكود
الدالتان الاخيرتان ضعهما في بنية شرط عند البحث..
وستحل المشكلة بإذن الله..
لاحظ المثال
أضف زر وتكست وليست
اكتب الكود في الزر
Dim sPath as String
sPath = "D:\Test\" & Text1.Text & ".txt"
if Dir$(sPath, VbDirectory) <> " " Then
List1.Additem sPath
End if
.
طور الكود بما يتناسب مع برامجك..