|
|
دليل استخدام إجراءات VBAppAss.dllللمبرمجين بلغة Visual Basic 6.0 |
التأكد من وجود (و إضافة) شرطة مائلة (Backslash) في نهاية مسار (Path).
الصيغة:
Function AddBackslash(APath As String) As String
الصنف:
TFileSystem.
الوسائط (Parameters):
| APath | المسار المطلوب التأكد من وجود شرطة مائلة في نهايته. |
الشرح:
تقوم هذه الدالة بإعادة المسار المحدد بالبارامتر APath نفسه مع
ضمان وجود شرطة مائلة في نهايته، فإذا كان APath ينتهي أصلاً بشرطة مائلة
فإنها تعيده كما هو، و إذا كان لا ينتهي بشرطة مائلة فإنها تضيفها إليه. أما في حالة كون البارامتر APath
نصاً فارغاً (Empty string, "") فإنها أيضاً تعيد نصاً فارغاً.
الدالة AddBackslash لا تتأكد ما إذا كان المسار المحدد في البارامتر APath
موجوداً فعلاً أم لا. إنها فقط تضمن وجود الشرطة المائلة في نهاية النص.
الاستخدام:
Dim ObjFileSystem As New TFileSystem
Dim MyPath As String
MyPath = ObjFileSystem.AddBackslash(Dir1.Path) & "MyFile.txt"
Open MyPath For Output As #1
انظر أيضاً:
الدالة RemoveBackslash