أحاول المشاركة حيب مقدرتي
هنالك العديد من الدوال التي تساعدنا على التعامل مع المجلدات
الدالة CreateDir تعمل على إنشاء مجلد في مسار نحن نحدده
CreateDir('C:\hussein')
// انشاء مجلد في القرص C اسمه husseinالدالة RemoveDir تحذف مجلد نحن نحدد
ReMoveDir('C:\hussein') // تحذف المجلد الذي أنشأه سابقاالدالة GetCurrentDir تعيد جملة تحوي مسار الدليل الحالي فمثلا إذا أردنا معرفة مسار برنامجنا يمكن الحصول عليه
Label1.Caption := GetCurrentDir// معرفة مسار البرنامج CreateDir(GetCurrentDir+'\Hussein');// إنشاء مجلد في مسار البرنامج
الدالة SetCurrentDir ترجع قيمة منطقية True إذا كان المجلد موجودا و False إذا لم يكن مو جودا
If SetCurrentDir('C:\Hussein') then
ShowMessage('It is Found')
Else
ShowMessage('It is not Found');