منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ارسال ملف الى سلة المحذوفات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] ارسال ملف الى سلة المحذوفات (/showthread.php?tid=665)

ارسال ملف الى سلة المحذوفات - professional sniper - 24-10-13

السلام عليكم
ممكن كود لارسال ملف بعد حذفه الى سلة المحذوفات
Heartوسلام ختام

RE: ارسال ملف الى سلة المحذوفات - @@أبورائد@@ - 24-10-13

السلام عليكم ورحمة الله وبركاته

وجدت لك هذا الكود
كود :
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"


السلام عليكم ورحمة الله وبركاته