30-01-18, 08:42 PM
السلام عليكم
أريد كود للبحث عن الملفات بالكمبيوتر حسب الاسم والتاريخ إذا ممكن
وشكرا لكم .
أريد كود للبحث عن الملفات بالكمبيوتر حسب الاسم والتاريخ إذا ممكن
وشكرا لكم .
البحث عن ملفات
|
30-01-18, 08:42 PM
السلام عليكم
أريد كود للبحث عن الملفات بالكمبيوتر حسب الاسم والتاريخ إذا ممكن وشكرا لكم .
30-01-18, 11:48 PM
اضف ال 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
31-01-18, 01:09 AM
(30-01-18, 11:48 PM)ahmed.m كتب : اضف ال Microsoft Scripting Runtime للمشروعأشكرك أخي الكريم لكن أرغب بأن أبحث حسب اسم الملف و (تاريخ انشاء الملف) أيضاً أشكرك مره آخرى
السلام عليكم
بإمكانك استخدام التابع 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] البحث في القائمة المنسدلة | haitham farooq | 0 | 171 |
31-12-23, 03:06 PM آخر رد: haitham farooq |
|
البحث بين السنوات | Abdellah | 2 | 462 |
16-06-23, 11:27 AM آخر رد: Abdellah |
|
سؤال عن البحث بجدولين مختلفين | ziadshhab | 1 | 352 |
03-06-23, 10:35 PM آخر رد: ahmedabdelaliem |
|
البحث بقاعدة البيانات المختارة من الكومبوكس | مصمم هاوي | 6 | 912 |
15-07-22, 03:42 AM آخر رد: سعود |
|
البحث في ملفات Pdf | Alhootti1 | 2 | 664 |
03-07-22, 03:26 PM آخر رد: Alhootti1 |
|
[سؤال] اختفاء ملفات الهارد الخارجي | نهى علي | 1 | 570 |
20-05-22, 03:26 PM آخر رد: الاصيله |
|
مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية | awidan76 | 6 | 1,696 |
02-09-21, 05:37 PM آخر رد: awidan76 |
|
اريد البحث فى حقل يحتوي على الاسم رباعي | الحزين اوى | 0 | 877 |
19-06-21, 12:15 AM آخر رد: الحزين اوى |
|
رسالة خطأ في كود البحث في قاعدة البيانات اكسس | ahmed201 | 1 | 1,077 |
04-01-21, 06:52 PM آخر رد: aboezzat84 |
|
[سؤال] كيفيه البحث باستخدام الكود | aboezzat84 | 1 | 1,213 |
28-12-20, 05:59 PM آخر رد: sendbad100 |