ياسر خليل أبو البراء قام بنشر يناير 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
مهند الزيدي قام بنشر يناير 2, 2016 قام بنشر يناير 2, 2016 شكرا لك أخي الكريم " ياسر " دائما أنت مبدع .. وفقك الله لكل خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.