IBM Lotus Symphony


Dir Function [Runtime]

يتم ارجاع اسم ملف أو دليل أو كل الملفات والأدلة التي توجد بقرص التشغيل أو في دليل يطابق مسار البحث المحدد.

الصيغة:

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 مرة أخرى، لكن بدون تحديد متغيرات.

لارجاع أدلة فقط، استخدم معامل الخاصية المميزة. ينطبق نفس الشيء اذا أردت تحديد اسم وحدة تخزين (على سبيل المثال، تقسيم القرص الثابت)

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

53 لم يتم ايجاد الملف

مثال:

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

نهاية البرنامج


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية