تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف الملفات إلى سلة المحذوفات
#1
كاتب الموضوع : AhmedEssawy

من المعروف أن الأمر kill يقوم بحذف الملف مباشرة ، الأمر التالي يقوم بنقل الملف إلى سلة المحذوفات ، نكتب أولاً في قسم التصاريح :


كود :
Option Explicit
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
وفي الأمر حيث أن العملية ستكون عملية نقل وليس حذف :


كود :
Public Function MoveToRecycleBin(FileSpec As String, Optional _
NoConfirm As Boolean = False) As Boolean
'returns true if succesful, false if not
'If NoConfirm is set to true,
'Windows Confirmation dialog is suppressed
'FileSpec can be a file name
'e.g., "C:\myfile.txt"
'or a directory/wildcard combination
'e.g., C:\*.txt
Dim WinType_SFO As SHFILEOPSTRUCT
Dim lRet As Long
Dim lFlags As Long
lFlags = FOF_ALLOWUNDO
If NoConfirm Then lFlags = lFlags Or FOF_NOCONFIRMATION
With WinType_SFO
.wFunc = FO_DELETE
.pFrom = FileSpec
.fFlags = lFlags
End With
lRet = SHFileOperation(WinType_SFO)
MoveToRecycleBin = (lRet = 0)
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أكواد التعامل مع الملفات RaggiTech 0 642 17-10-12, 02:44 PM
آخر رد: RaggiTech
  لنسخ الملفات RaggiTech 0 417 17-10-12, 02:23 PM
آخر رد: RaggiTech
  طريقة للبحث عن الملفات RaggiTech 0 317 17-10-12, 12:46 AM
آخر رد: RaggiTech
  افراغ سلة المحذوفات RaggiTech 0 365 17-10-12, 12:21 AM
آخر رد: RaggiTech
  تفعيل و تعطيل إظهار الملفات المخفية Hidden Files المبرمج الطموح vb6 0 821 06-10-12, 12:37 PM
آخر رد: المبرمج الطموح vb6
  كود تسجيل الملفات برمجياً(((فيجوال بيسك 6)))) سانسيفا 1 762 21-09-12, 07:36 AM
آخر رد: Ahmad Jawad

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


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