كود لحذف الملفات وكود لحذف المجلدات

إكسل vba/ الدرس 323 / الذكاء الاصطناعي / كود حذف الملفات والمجلدات

 

حذف ملف أو مجلد

لحذف ملف باستخدام VBA، يمكنك استخدام وظيفة "Kill". بناء الجملة لهذه الوظيفة كما يلي:

اقتل: اسم المسار

حيث "اسم المسار" هو المسار الكامل للملف الذي تريد حذفه.

فيما يلي مثال على رمز VBA الذي يستخدم وظيفة "Kill" لحذف ملف باسم "example.txt" في المجلد "C: \ Temp":

حذف ملف فرعي

اسم المسار = "C: \ Temp \ example.txt"

اقتل: اسم المسار

يحدد هذا الرمز إجراءً فرعيًا يسمى "Delete File" يقوم بتعيين متغير اسم المسار للملف الذي تريد حذفه ثم يستخدم وظيفة "Kill" لحذفه.

تجدر الإشارة إلى أن وظيفة "Kill" ستعمل فقط مع الملفات، ولا يمكنها حذف المجلدات. أيضًا، إذا حاولت حذف ملف مفتوح حاليًا أو قيد الاستخدام من قبل عملية أخرى، فإن وظيفة "Kill" ستظهر خطأ.

يمكنك استخدام Filesystem Object بدلاً من وظيفة "Kill"، ويمكنك استخدام هذا السطر من التعليمات البرمجية:

تعيين fso ككائن

تعيين fso = Create Object ("Scripting.FileSystemObject")

fso. Delete File (اسم المسار)

يستخدم هذا الرمز Filesystem Object لحذف الملف ويمكنه حذف ملفات القراءة فقط أو الملفات المستخدمة حاليًا من قبل عملية أخرى.

 كود حذف الملفات والمجلدات

كود حذف الملفات

Sub DeleteFile() 'حذف الملفات

On Error Resume Next

Dim filePath As String

filePath = "E:\aa\*.???" 'تحديد مسار الملف

If Dir(filePath) <> "" Then

Kill filePath

MsgBox "تم حذف الملف بنجاح"

Else

MsgBox "الملف غير موجود"

End If

End Sub

كود حذف المجلد

Sub DeleteFolder() 'حذف المجلدات

On Error Resume Next

Dim folderPath As String

folderPath = "E:\aa\" 'تحديد مسار المجلد

If Len(Dir(folderPath, vbDirectory)) <> 0 Then

RmDir folderPath

MsgBox "تم حذف المجلد بنجاح"

Else

MsgBox "المجلد غير موجود"

End If

End Sub