الملف السفاح (ملف لحذف كل الملفات في مجلد محدد)

[مهند الزيدي]

كل عام وانتم بخير ..للرفع

[ياسر خليل أبو البراء]

أخي الكريم مهند

بالنسبة لموضوع الفورمات فأمره صعب ومعقد وعواقبه غير مضمونة .. نخشى أن يقوم أحدهم بتجربة الكود فينتهي كل شيء بالنسبة له ههههههه

إليك حل آخر وهو حذف كل الملفات والمجلدات والمجلدات الفرعية في مسار محدد (قمت بالتجربة على فلاشة عليها ملفات غير هامة)

Sub Clear_All_Files_And_SubFolders_In_Folder()
    Dim FSO As Object
    Dim MyPath As String
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    MyPath = "I:\"
    
    If Right(MyPath, 1) = "\" Then
        MyPath = Left(MyPath, Len(MyPath) - 1)
    End If
    
    If FSO.FolderExists(MyPath) = False Then
        MsgBox MyPath & " Doesn't Exist", 64
        Exit Sub
    End If
    
    On Error Resume Next
        FSO.DeleteFile MyPath & "\*.*", True
        FSO.DeleteFolder MyPath & "\*.*", True
    On Error GoTo 0
End Sub

غير المسار I الموجود في الكود إلى المسار الذي ترغب في حذف الملفات والمجلدات به ، وأعلمنا بالنتيجة

تقبل تحياتي

 

[مهند الزيدي]

شكرا لك أخي الكريم " ياسر " دائما أنت مبدع .. وفقك الله لكل خير

[AYMAN Z HARB]

مشكورين للملف السفاح