=== BEGIN ARIEFWT'S POST ===
'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: [EMAIL PROTECTED]
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
HAPPY CODING!!!
=== END ARIEFWT'S POST ===
Catatan:
* Semoga posting ini dapat bermanfaat secara positif bagi kita semua
* CMIIW - Correct Me If I am Wrong!
* Silakan tinggalkan testimonial Anda di
http://ariefwt.byethost7.com/testimonial
======== My Online Things =========
Y!: [EMAIL PROTECTED]
MSN: [EMAIL PROTECTED]
Jabber/GTalk: [EMAIL PROTECTED]
ICQ: 421914355
www: http://ariefwt.byethost7.com
===================================
TPM, Sunday, August 26, 2007
--
Best Regards,
(Arief Wibowo, C.Hts, RM)
Computer Programmer and Alternative Therapist
--- In [email protected], "pooh" <[EMAIL PROTECTED]> wrote:
>
> Halo,
>
> Ada yang tahu buat program delete ke recycle bin kemudian empty
recycle bin?
>
>
>
> Thx b4
>
