IBM Lotus Symphony
|
يتم ارجاع اسم ملف أو دليل أو كل الملفات والأدلة التي توجد بقرص التشغيل أو في دليل يطابق مسار البحث المحدد.
Dir [(Text As String) [, Attrib As Integer]]
مجموعة حروف
Text: أي تعبير يحدد مسار البحث أو الدليل أو الملف. يمكن تحديد هذا المتغير فقط في أول مرة تقوم باستدعاء الوظيفة Dir function. اذا أردت، يمكنك ادخال المسار باستخدام ترميز URL.
Attrib: أي تعبير رقمي يحدد bitwise خصائص الملف. تقوم الوظيفة Dir فقط بارجاع الملفات والأدلة التي تطابق الخصائص المحددة. يمكنك دمج العديد من الخصائص المميزة من خلال اضافة قيم الخصائص المميزة:
0 : ملفات عادية.
16 : يتم ارجاع الاسم الخاص بالدليل فقط.
استخدم هذه الخاصية المميزة للتأكد من وجود ملف أو دليل، أو لتحديد كل الملفات والحافظات في الدليل المحدد.
للتحقق من وجود ملف، قم بادخال المسار الكامل واسم الملف. اذا كان اسم الملف أو الدليل غير موجود، ستقوم وظيفة Dir function بارجاع مجموعة حروف ذات طول zero ("").
لتكوين كشف بكل الملفات الموجودة في دليل معين ، قم بما يلي: في أول مرة تقوم باستدعاء الوظيفة Dir function، حدد مسار البحث بالكامل للملفات، على سبيل المثال، "D:\Files\*.sxw". اذا كان المسار صحيحا وقامت عملية البحث بايجاد ملف واحد على الأقل، ستقوم وظيفة Dir function بارجاع الاسم الخاص بأول ملف يطابق مسار البحث. لارجاع أسماء ملفات اضافية تطابق المسار، قم باستدعاء Dir مرة أخرى، لكن بدون تحديد متغيرات.
لارجاع أدلة فقط، استخدم معامل الخاصية المميزة. ينطبق نفس الشيء اذا أردت تحديد اسم وحدة تخزين (على سبيل المثال، تقسيم القرص الثابت)
Sub ExampleDir
يقوم REM بعرض كل الملفات والأدلة
Dim sPath As String
Dim sDir as String, sValue as String
sDir="Directories:"
sPath = CurDir
sValue = Dir$(sPath + getPathSeparator + "*",16)
Do
If sValue <> "." and sValue <> ".." عند
if (GetAttr( sPath + getPathSeparator + sValue) AND 16) >0 then
REM get the directories
sDir = sDir & chr(13) & sValue
End If
End If
sValue = Dir$
Loop Until sValue = ""
MsgBox sDir,0,sPath
نهاية البرنامج