تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ارسال ملف الى سلة المحذوفات
#1
Question 
السلام عليكم
ممكن كود لارسال ملف بعد حذفه الى سلة المحذوفات
Heartوسلام ختام
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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


السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة: ناجي إبراهيم


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تنفيذ تقرير و ارسال ايميل aboezzat84 1 53 29-11-17, 03:03 PM
آخر رد: Amir_alzubidy
  تغيير ارسال اسم العمود حافظ حافظ 2 138 11-10-17, 12:14 PM
آخر رد: حافظ حافظ
  ارسال من التاكست بوكس الى الوورد حافظ حافظ 4 179 19-09-17, 12:09 PM
آخر رد: مصمم هاوي
  [سؤال] ارسال قيمة من مفتاح انتر KeyAscii أبو عقيل 6 241 30-05-17, 08:45 PM
آخر رد: أبو عقيل
  [كود] ارسال ملف عبر الانترنت عيسى ابو ارميس 2 408 19-03-16, 12:23 PM
آخر رد: محمد محى
  ارسال ملف بواسطة فيجوال بيسك باستخدام اوت لوك Ksa004 2 1,131 09-06-15, 10:18 AM
آخر رد: Ksa004
  مشكلة في ارسال البيانات الى ملف وورد Ksa004 3 986 31-01-15, 12:58 AM
آخر رد: Ksa004
  [vb6.0] مساعدة في ارسال رسالة بواسطة الكود الى بريدي الخاص DamiDev 5 1,319 28-11-14, 07:15 PM
آخر رد: dolce
  ارسال اميل من خلال كود hamada21 1 576 30-12-13, 11:57 PM
آخر رد: mounzerlb

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم