أخي الكريم مهند
بالنسبة لموضوع الفورمات فأمره صعب ومعقد وعواقبه غير مضمونة .. نخشى أن يقوم أحدهم بتجربة الكود فينتهي كل شيء بالنسبة له ههههههه
إليك حل آخر وهو حذف كل الملفات والمجلدات والمجلدات الفرعية في مسار محدد (قمت بالتجربة على فلاشة عليها ملفات غير هامة)
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 الموجود في الكود إلى المسار الذي ترغب في حذف الملفات والمجلدات به ، وأعلمنا بالنتيجة
تقبل تحياتي