🚀 go-pugleaf

"ToyotaMacs Ogawa" <k-ogawa@syseng.toyotamacas.co.jp> writes:

> 　SHFileOperation関数（API）を使ってファイルをごみ箱に捨てるプログラム
> （VB5.0）を、WindowsNT4.0（SP3）上で動作させると、アプリケーションエラー（ア
> クセス違反）となってしまいます。
> 　どうもSHFileOperation関数の中で、アドレス例外が起きているようなのです
> が．．何が原因なのか判りません。
> 　Windows95上では問題なく動作するんですが。

たぶん引数が間違っているんでしょう。
実際のコードを示したほうが適切な助言を得やすいと思います。

YUTANI Miki
mailto:yuta@kt.rim.or.jp
http://www.kt.rim.or.jp/~yuta/

こんにちは。返信ありがとうございます。

>
>たぶん引数が間違っているんでしょう。
>実際のコードを示したほうが適切な助言を得やすいと思います。
>


私もその可能性があるのではと、ＳＨＦｉｌｅＯｐａｒａｔｉｏｎ関数に関して、
いろいろと調べていたところ
［Ｎｏｗ Ｓｕｐｐｏｒｔｅｄ on Windows NT］と記述されているのを、
見つけました。
「ただ今、サポート中」 ということでしょうか？
すべて英語で書かれていて、フィーリングで読んでいたので
正確かどうか怪しいですが。

関数に関係する実際のコードは、次のようになっています。
Dim Fileop As SHFILEOPSTRUCT
Dim Ffrom As String
Dim Fto As String
Dim rtn As Integer
Fto = "C:\Recycler\"
For
　　　　　　　　　：
Ffrom = Ffrom & vbNullChar　ループで複数ファイルを指定し、
　　　　　　　　　：　　　　　　　　　（ファイルはフルパス名です）
Next
Ffrom = Ffrom & vbNullChar　最後はNullを２つにしています
Fileop.pFrom = Ffrom　　　　　　　　
Fileop.pTo = Fto　　ここは削除のときは関係ないみたいですが
　　　　　　　　　　　　一応、"C:\Recycler"を指定しています
Fileop.wFunc = FO_DELETE
Fileop.fFlags = FOF_ALLOWUNDO + FOF_SIMPLEPROGRESS
Fileop.lpszProgressTitle = "削除中"
rtn = SHFileOperation(Fileop)               'ごみ箱に捨てる
If rtn <> 0 Then
    MsgBox "ファイル削除ができませんでした。"
End　If