موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ حذف الملفات إلى سلة المحذوفات

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:03 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي حذف الملفات إلى سلة المحذوفات

كود:
كود : 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
رد مع اقتباس


أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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