Delete File - نسخه قابل چاپ

کد پی‌اچ‌پی:
Option Explicit

'//Www.parsiCoders.com
Private Declare Function SHFileOperation 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 Long
End Type

Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40

Private Sub cmdDelete_Click()
    Dim typOperation As SHFILEOPSTRUCT
    
    With typOperation
        .wFunc = FO_DELETE
        .pFrom = "c:\parsicoders.txt"
        .fFlags = FOF_ALLOWUNDO
    End With
    SHFileOperation typOperation
End Sub