Dosya silme makrosu hk.

[dedenet]

bir dosyayı silmek için aşağıdaki kodu kullanıyordum.
Ancak bu şekilde geri dönüşüme girmeden kalıcı silme yapıyor.
geri dönüşüme gidecek şekilde silme yapmak için hangi kodu kullanmalıyım

Kill ThisWorkbook.Path & "\listeler.xlsx"

 

[Haluk]

O zaman API kullanmak gerekecek, 32 Bit/64 Bit uyumu sağlanması gerekecek ..... yani; biraz sıkıntılı bir konu.

.

 

[Haluk]

64 Bit Excel için;

Kaynak:

Recycle A File Or Folder

www.cpearson.com

https://stackoverflow.com/questions/46357125/access-vba-to-delete-a-file-to-the-recycle-bin

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Windows API functions, constants,and types.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare PtrSafe Function SHFileOperation Lib "shell32.dll" Alias _
    "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPtr

Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10

Private Type SHFILEOPSTRUCT
    hwnd As LongPtr
    wFunc As LongPtr
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As LongPtr
    lpszProgressTitle As String
End Type
'
Sub Test()
    Dim myFile As String
    myFile = ThisWorkbook.Path & "\listeler.xlsx"
    Call Recycle(myFile)
End Sub
'
Public Function Recycle(FileSpec As String, Optional ErrText As String) As Boolean
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Recycle
' This function sends FileSpec to the Recycle Bin. There
' are no restriction on what can be recycled. FileSpec
' must be a fully qualified folder or file name on the
' local machine.
' The function returns True if successful or False if
' an error occurs. If an error occurs, the reason for the
' error is placed in the ErrText varaible.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim SHFileOp As SHFILEOPSTRUCT
Dim Res As LongPtr
Dim sFileSpec As String

ErrText = vbNullString
sFileSpec = FileSpec

If InStr(1, FileSpec, ":", vbBinaryCompare) = 0 Then
    ''''''''''''''''''''''''''''''''''''''
    ' Not a fully qualified name. Get out.
    ''''''''''''''''''''''''''''''''''''''
    ErrText = "'" & FileSpec & "' is not a fully qualified name on the local machine"
    Recycle = False
    Exit Function
End If

If Dir(FileSpec, vbDirectory) = vbNullString Then
    ErrText = "'" & FileSpec & "' does not exist"
    Recycle = False
    Exit Function
End If

''''''''''''''''''''''''''''''''''''
' Remove trailing '\' if required.
''''''''''''''''''''''''''''''''''''
If Right(sFileSpec, 1) = "\" Then
    sFileSpec = Left(sFileSpec, Len(sFileSpec) - 1)
End If


With SHFileOp
    .wFunc = FO_DELETE
    .pFrom = sFileSpec
    .fFlags = FOF_ALLOWUNDO
    '''''''''''''''''''''''''''''''''
    ' If you want to supress the
    ' "Are you sure?" message, use
    ' the following:
    '''''''''''''''''''''''''''''''
    .fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
End With

Res = SHFileOperation(SHFileOp)
If Res = 0 Then
    Recycle = True
Else
    Recycle = False
End If

End Function

.

 

[dedenet]

Haluk bey teşekkür ederim ancak bir dosya silmek için bu kadar kod biraz fazla değil mi?
yani başka bir yolu yok mudur, kill komutu yerine Delete falan yazdım olmadı. daha basit ve kolay bir yolu veya kodu vardır diye düşünüyorum

 

[Seyit Tiken]

Bunun yerine şöyle bir şey yapabilirsiniz : Dosyanın yapısını bozabilirsiniz, gizleyebilirsiniz, dosya kullanım sayı veya süresini tayin edebilirsiniz.

 

[Korhan Ayhan]

Geri dönüşüme göndermek istemenizin amacı nedir?

Ayrıca silme işlemini Windows işletim sistemi kodları (api) ile yapmalısınız ki geri dönüşüm devreye girsin. Haluk bey bu sebeple uzun dediğiniz kodlamayı önerdi ve bunu önceki mesajında açıkladı.