🚀 go-pugleaf

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

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


私もその可能性があるのではと、ＳＨＦｉｌｅＯｐａｒａｔｉｏｎ関数に関して、
いろいろと調べていたところ
［Ｎｏｗ Ｓｕｐｐｏｒｔｅｄ 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