ActiveBasicでのプログラミングでわからないこと、困ったことなどがあったら、ここで質問してみましょう(質問を行う場合は、過去ログやWeb上であらかじめ問題を整理するようにしましょう☆)。
M.S.
記事: 212 登録日時: 2005年6月01日(水) 21:51
お住まい: 奈良県北西部
#1
投稿記事
by M.S. » 2005年7月14日(木) 10:44
コード: 全て選択
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β時代はちゃんとコンパイルされたのですが・・・。
ノッチ
記事: 82 登録日時: 2005年6月01日(水) 23:27
お住まい: 北海道札幌市
#2
投稿記事
by ノッチ » 2005年7月14日(木) 11:09
> [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かな?)
M.S.
記事: 212 登録日時: 2005年6月01日(水) 21:51
お住まい: 奈良県北西部
#3
投稿記事
by M.S. » 2005年7月14日(木) 11:17
dwFlagsとAsの間にスペースを入れたらちゃんとコンパイルできました。
ありがとうございます。
あと、「¥」は半角にすると「\」になるので全角に変えました。
イグトランス
記事: 899 登録日時: 2005年5月31日(火) 17:59
お住まい: 東京都
連絡する:
#4
投稿記事
by イグトランス » 2005年7月14日(木) 18:03
> あと、「¥」は半角にすると「\」になるので全角に変えました。
¥は半角では\になっても問題ありません。
半角では同一文字のところを欧文フォントでは\で、日本語フォントでは¥と表示するようになっているからです。