السلام عليكم
ممكن كود لارسال ملف بعد حذفه الى سلة المحذوفات
وسلام ختام
السلام عليكم ورحمة الله وبركاته
وجدت لك هذا الكود
كود :
Private Type SHFILEOPTSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
End Type
Dim fop As SHFILEOPTSTRUCT
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPTSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Public Sub DeleteFileToRecycleBin(Filename As String)
With fop
.wFunc = FO_DELETE
.pFrom = Filename
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation fop
End Sub
طريقة استخدامه
كود :
DeleteFileToRecycleBin "d:\file.txt"
السلام عليكم ورحمة الله وبركاته