[ تمت الإجابة ]طريقة حذف ملف وورد او اكسل عن طريق كود في الاكسس

بسيطة اخى الفاضل

تفضل هذا كود الجذف

لكنه للاسف يقوم بحذف الملف نهائيا

KILL "c: my documents\db1"

يجب وضع مسار الملف بين علامتى اقتباس

اسرع طريقة باستخدام تعليمة KILL

مثال:

Kill ("C:\NewFolder\db1.mdb")

ملاحظه هامة: ان استخدام KILL هو اسرع طريقة لانها لا ترفق اي تاكيد للحذف و لا تحتفظ بالملف في سلة المهملات

اخى اياد .......... السلام عليكم و رحمة الله و بركاته

هل لديك كود يحذف ملفات و مجلدات ؟؟ مثل الامر kill

و هل لديك كود نقل الملف الى سلة المحذوفات / او مجلد طبعا

اخي tbazh

ساعرض عليك ثلاثة احتمالات:

1- نسخ ملف / مجلد:

Sub Copy_File()
    FileCopy "C:\Test.xls", "D:\Test.xls"
End Sub

2- نقل ملف / مجلد:

Sub Move_Rename_File()
    Name "C:\Test.xls" As "C:\TestNew.xls"
End Sub

3- مسح ملف / مجلد:

هناك هذا الكود (منقول و ليس مجرب بعد)

'This program needs a Common Dialog Box, named CDBox.
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim SHFileOp As SHFILEOPSTRUCT
    'Set the dialog's title
    CDBox.DialogTitle = "Select a file to delete ..."
    'Set the dialog's filter
    CDBox.Filter = "All Files (*.*)|*.*"
    'Show the 'Open File' dialog
    CDBox.ShowOpen
    With SHFileOp
        'Delete the file
        .wFunc = FO_DELETE
        'Select the file
        .pFrom = CDBox.filename
        'Allow 'move to recycle bn'
        .fFlags = FOF_ALLOWUNDO
    End With
    'perform file operation
    SHFileOperation SHFileOp
    MsgBox "The file '" + CDBox.filename + "' has been moved to your Recycling Bin !", vbInformation + vbOKOnly, App.Title
End Sub

تذكرت اني استخدمت هذا الكود من فترة طويلة

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

فقط انشئ module جديد و ضع فيه الكود التالي:

Private Declare Function apiSHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
    (lpFileOp As SHFILEOPSTRUCT) As Long

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 Const FOF_ALLOWUNDO = &H40
Private Const FO_DELETE = &H3
Private Const FOF_NOCONFIRMATION = &H10

Sub sDelete(strFile As String)
'   Procedure to delete a file to the Recycle Bin instead of deleting it outright
'   Accepts:
'       strFile - a full path/file name to a file that is to be deleted.
    Dim typSHFile As SHFILEOPSTRUCT
    Dim lngReturn As Long
    If Len(Dir(strFile)) = 0 Then
        MsgBox "File does not exist.", vbOKOnly, " "
    Else
        With typSHFile
            .pFrom = strFile & vbNullChar & vbNullChar
            .wFunc = FO_DELETE
            .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
        End With
        lngReturn = apiSHFileOperation(typSHFile)
    End If
End Sub

السلام عليكم ...

أخي إياد .. أنا وراك وراك .....

ردك الأخير .. كيف استدعاء الموديل ؟؟؟ إذا كان اسم الملف ومساره في حقل TXTFNAME

و عليكم السلام

والله من كل قلبي :lol:

قمت بجمع سؤالك السابق

فصل اسم الملف عن المسار

مع اضافة كود حذف الملف المؤقت (اي ارساله الى سلة المحذوفات)

فاصبح لدينا هذا المرفق

*حدد مسار الملف كاملا

* اضغط على Delete

Send to Recycle Bin.zip

بارك الله فيك وفي علمك ونفع الله بك ..

ولا أملك لك إلا الدعاء ....

بارك الله فيك اخي اياد...

عمل رائع ومفيد