# 用VB 5.0 , 不行说.....

Posted by CHINO on January 22, 1999 at 03:46:33:

In Reply to: 纳入我的心得笔记 posted by cww on January 18, 1999 at 09:12:34:

: 将二位的文章纳入我的心得笔记之中，若二位有意见，
: 我再将之删除，OK?
: :

程式码如下:

Private Declare Function SHEmptyRecycleBin Lib _ "shell32" Alias "SHEmptyRecycleBinA" (ByVal _ hwnd As Long, ByVal pszRootPath As String, _ ByVal dwFlags As Long)

Dim ReCyclePath As String
Dim A As Long

Private Const SHERB_NOCONFIRMATION = 1
Private Const SHERB_NOPROGRESSUI = 2
Private Const SHERB_NOSOUND = 4

REM ---------------------------------------

Private Sub Command1_Click()
Call SHEmptyRecycleBin(0, "", 0)
End Sub

rem end lo ---------------------------

出现在 错误码 '49'

DLL 呼叫规格错误

Follow Ups: