[v_2017_6]

أشكرك أخي جورج

وإثراءً لهذا الموضوع وجدت كود لحذف ملف أو مجلد ولكن يرسله لسلة المحذوفات Recycle Bin
الكود هذا الرابط
https://www.daniweb.com/programming/soft...-using-vb6

وهذا الكود

كود :

Private Sub Recycle2(ByVal FQFileOrFolder As String)
    'Late bound.
    Dim Delim As Integer
    Dim FItem As Object
    Const ssfBITBUCKET = 10
    
    Delim = InStrRev(FQFileOrFolder, "\")
    With CreateObject("Shell.Application")
        For Each FItem In .NameSpace(Left$(FQFileOrFolder, Delim - 1)).Items
            If Not FItem.IsLink Then
                If UCase$(FItem.Name) = UCase$(Mid$(FQFileOrFolder, Delim + 1)) Then
                    .NameSpace(ssfBITBUCKET).MoveHere FItem
                    Exit Sub
                End If
            End If
        Next
    End With
    Err.Raise 52
End Sub