ab.com コミュニティ

Declare Function SHEmptyRecycleBin Lib"shell32.dll" _
	Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String,ByVal dwFlagsAs Long) As Long

Const SHERB_NOCONFIRMATION = &H1&
Const SHERB_NOPROGRESSUI = &H2&
Const SHERB_NOSOUND = &H4&

SHEmptyRecycleBin(GetDesktopWindow(),"C:￥",0)　　　'・・・・・SHEmptyRecycleBin(①,②,③)
End

上のコードのように、SPIRIT さんのサイトの「ON ERROR RESUME NEXT」に載っている Win Tips の「ゴミ箱を空にする」をコピー＆ペーストをしてコンパイルをすると、「1行目･･･文法が間違っています」と「9行目･･･"SHEmptyRecycleBin" のパラメータ指定が間違っています」というエラーが出ます。
これは、4.00β時代はちゃんとコンパイルされたのですが･･･。

> [code]
> Declare Function SHEmptyRecycleBin Lib"shell32.dll" _
> Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String,ByVal dwFlagsAs Long) As Long
>
> Const SHERB_NOCONFIRMATION = &H1&
> Const SHERB_NOPROGRESSUI = &H2&
> Const SHERB_NOSOUND = &H4&
>
> SHEmptyRecycleBin(GetDesktopWindow(),"C:￥",0)　　　'・・・・・SHEmptyRecycleBin(①,②,③)
> End[/code]

このコードが実際のものをコピー＆ペーストしたものであれば、
Declare部分の最後の方の"ByVal dwFlagsAs Long"でエラーが出ています。
dwFlagsとAsの間にスペースを入れれば大丈夫だと思います。
(あとは￥とその後ろのスペースを半角にすればOKかな？)

dwFlagsとAsの間にスペースを入れたらちゃんとコンパイルできました。
ありがとうございます。

あと、「￥」は半角にすると「＼」になるので全角に変えました。

> あと、「￥」は半角にすると「＼」になるので全角に変えました。
￥は半角では＼になっても問題ありません。
半角では同一文字のところを欧文フォントでは＼で、日本語フォントでは￥と表示するようになっているからです。