اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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 الموجود في الكود إلى المسار الذي ترغب في حذف الملفات والمجلدات به ، وأعلمنا بالنتيجة

تقبل تحياتي

 

  • Like 1
  • 8 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information