> >             If MsgBox("削除しますヽ(´ー｀)ノ良い？", vbOKCancel) = 1 Then
> >                 '削除する場合の処理
> >                 'ごみ箱に捨てる
> >                 With SHFILEOPSTRUCT1
> >                     .hwnd = Me.hwnd
> >                     .wFunc = FO_DELETE
> >                     .pFrom = Text.Text
> >                     .fFlags = FOF_ALLOWUNDO
> >                 End With
> >                 ' 成功すれば0を返します
> >                 ret = SHFileOperation(SHFILEOPSTRUCT1)
> >                 File.Refresh 'ファイルリストを更新
> >             Else
> >             End If
> > ここか
> 原因判明したっぽい
> Text.Textが空だと.pFromがNULLになってSHFileOperationで落ちるらしい
> Text.Textが空な時はSHFileOperationを実行しないようにせれ

.pFrom = Text.Textってのは何を表してるんだい？(;´Д`)

参考：2001/07/27(金)05時48分59秒