درس في كيفية التعامل مع الملفات

السلام عليكم

هذا الموضوع حول التعامل مع الملفات

اولا الامر dir و هو كما نعلم جميعا من اوامر الدوز الذي يمكننا من استعراض الملفات في مسار معين

مثلا dir(c:\*.doc) ترجع جميع الملفات ذات الامتداد doc

في الفجوال بيزك عندما ابحث عن ملف في مسار معين استعمل الصيغة

if dir("c:\h.doc")="" then msgbox ("h.doc is not found")
[code/]
اي عندما لا يوجد الملف في المسار المعين يرجع الامر السابق ""
و اذا وجد ترجع اسم الملف والامتداد 
[code]
Public Function bFileExists(sFile As String) As Boolean
If Dir$(sFile) <> “” Then bFileExists = True Else bFileExists = False
End Function
[code/]
هذه الدالة تعين على مراجعة هل الملف موجود ام لا بوضع المسار في الباراميتر
يمكن ايضا استعمال الامر dir لارجاع جميع الملفات في مسار معين
مثلا
[code]
s= dir(c:\*.doc)
while s<>""
print s
s=dir
wend
[code/]
ستقوم بطباعة كل الملفات ذات الامتداد doc
اليكم بعض الاوامر العامة
filecopyانسخ ملف في مسار جديد
killلحذف ملف او عدة ملفات
nameلتغيير اسم ملف
mkdirلانشاء ملف جديد
rmdirلحذف ملف فارغ
chdirلتغيير الملف
chdriveلتغيير الدراف
ملحوظة : عند استعمال filecopy استعمل معها الامر on error resume nextو ذلك تفاديا للخروج من البرنامج في حالة حدوث خطأ و خاصة ان كات التقل عبر شبكة
لتحديد المسار الحالي استعمل احد الامرين 
app.path
curdir
مع ملاحظة انك ان كنت تعمل من داخل الexe فان الامرين سيرجعان مسار برنامجك 
و لكن ان كنت من داخل ال vbp فان app.path ستعيد مسار برنامجك بينما curdir ستعيد مسار الفجول بيسك
لتشغيل برامج ذات الامتداد exe and htmlاستعمل الامر shell
في المرة القادمة ان شاء الله نناقش التعامل مع text files 
 :D