مهند الزيدي قام بنشر يناير 1, 2016 مشاركة قام بنشر يناير 1, 2016 كل عام وانتم بخير ..للرفع رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 1, 2016 الكاتب مشاركة قام بنشر يناير 1, 2016 أخي الكريم مهند بالنسبة لموضوع الفورمات فأمره صعب ومعقد وعواقبه غير مضمونة .. نخشى أن يقوم أحدهم بتجربة الكود فينتهي كل شيء بالنسبة له ههههههه إليك حل آخر وهو حذف كل الملفات والمجلدات والمجلدات الفرعية في مسار محدد (قمت بالتجربة على فلاشة عليها ملفات غير هامة) 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 الموجود في الكود إلى المسار الذي ترغب في حذف الملفات والمجلدات به ، وأعلمنا بالنتيجة تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر يناير 2, 2016 مشاركة قام بنشر يناير 2, 2016 شكرا لك أخي الكريم " ياسر " دائما أنت مبدع .. وفقك الله لكل خير رابط هذا التعليق شارك More sharing options...
AYMAN Z HARB قام بنشر أغسطس 25 مشاركة قام بنشر أغسطس 25 مشكورين للملف السفاح رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان