下へ
> 2001/07/27 (金) 06:01:37 ◆ ▼ ◇ [mirai]> > てめぇのプログラムなのにわからんのか(;´Д`)
> きっと眠いんだよ(;´Д`)
そーゆーことにヽ(;;;;´;ー;;`;;;;)ノ
参考:2001/07/27(金)05時59分19秒
> 2001/07/27 (金) 06:01:08 ◆ ▼ ◇ [mirai]> > きっと眠いんだよ(;´Д`)
> それがそーじゃないところが、わの人の凄いところ
倭人の技術水準は謎だな
参考:2001/07/27(金)06時00分27秒
> 2001/07/27 (金) 06:01:07 ◆ ▼ ◇ [mirai]> > きっと眠いんだよ(;´Д`)
> それがそーじゃないところが、わの人の凄いところ
関数もわからないしな
わ
参考:2001/07/27(金)06時00分27秒
> 2001/07/27 (金) 06:00:27 ◆ ▼ ◇ [mirai]> > てめぇのプログラムなのにわからんのか(;´Д`)
> きっと眠いんだよ(;´Д`)
それがそーじゃないところが、わの人の凄いところ
参考:2001/07/27(金)05時59分19秒
> 2001/07/27 (金) 05:59:19 ◆ ▼ ◇ [mirai]> > 困った事にわけがわからないヽ(´ー`)ノグワハハハハ
> > とりあえずがんばる
> てめぇのプログラムなのにわからんのか(;´Д`)
きっと眠いんだよ(;´Д`)
参考:2001/07/27(金)05時59分00秒
> 2001/07/27 (金) 05:59:00 ◆ ▼ ◇ [mirai]> > 「SHFILEOPSTRUCT1のメンバpFromに
> > テキストボックスTextのTextプロパティの内容を代入せよ」
> 困った事にわけがわからないヽ(´ー`)ノグワハハハハ
> とりあえずがんばる
てめぇのプログラムなのにわからんのか(;´Д`)
参考:2001/07/27(金)05時57分55秒
> 2001/07/27 (金) 05:57:55 ◆ ▼ ◇ [mirai]> > .pFrom = Text.Textってのは何を表してるんだい?(;´Д`)
> 「SHFILEOPSTRUCT1のメンバpFromに
> テキストボックスTextのTextプロパティの内容を代入せよ」
困った事にわけがわからないヽ(´ー`)ノグワハハハハ
とりあえずがんばる
参考:2001/07/27(金)05時55分10秒
> 2001/07/27 (金) 05:55:10 ◆ ▼ ◇ [mirai]> > 原因判明したっぽい
> > Text.Textが空だと.pFromがNULLになってSHFileOperationで落ちるらしい
> > Text.Textが空な時はSHFileOperationを実行しないようにせれ
> .pFrom = Text.Textってのは何を表してるんだい?(;´Д`)
「SHFILEOPSTRUCT1のメンバpFromに
テキストボックスTextのTextプロパティの内容を代入せよ」
参考:2001/07/27(金)05時52分25秒
> 2001/07/27 (金) 05:52:25 ◆ ▼ ◇ [mirai]> > 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秒
> 2001/07/27 (金) 05:50:41 ◆ ▼ ◇ [mirai]> > 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を実行しないようにせれ
追記
よくよく考えるとファイル選択されてない(即ち削除すべきファイルが無い)のに
Msgboxのところに辿りつくのがおかしいんじゃないか(;´Д`)プログラムとして
参考:2001/07/27(金)05時48分59秒
> 2001/07/27 (金) 05:48:59 ◆ ▼ ◇ [mirai]> > 何も選択しない状態でDel押してMsgboxで「OK」と答えると落ちる
> > もう少し広い範囲のソースを見せて貰えまいか
> 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を実行しないようにせれ
参考:2001/07/27(金)05時39分18秒
> 2001/07/27 (金) 05:39:18 ◆ ▼ ◇ [mirai]> > 何も選択しない状態(起動した最初の状態)でDEL押すとおちるの?(;´Д`)
> 何も選択しない状態でDel押してMsgboxで「OK」と答えると落ちる
> もう少し広い範囲のソースを見せて貰えまいか
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
ここか
参考:2001/07/27(金)05時35分07秒
> 2001/07/27 (金) 05:35:07 ◆ ▼ ◇ [mirai]> > どうにもSHFileOerationの中で落ちてる模様だよ
> > なんでだろうな(;´Д`)
> 何も選択しない状態(起動した最初の状態)でDEL押すとおちるの?(;´Д`)
何も選択しない状態でDel押してMsgboxで「OK」と答えると落ちる
もう少し広い範囲のソースを見せて貰えまいか
参考:2001/07/27(金)05時24分12秒
> 2001/07/27 (金) 05:24:12 ◆ ▼ ◇ [mirai]> > '削除する場合の処理
> > 'ごみ箱に捨てる
> > With SHFILEOPSTRUCT1
> > .hwnd = Me.hwnd
> > .wFunc = FO_DELETE
> > .pFrom = Text.Text
> > .fFlags = FOF_ALLOWUNDO
> > End With
> > ' 成功すれば0を返します
> > ret = SHFileOperation(SHFILEOPSTRUCT1)
> > どっかからとってきていじってない(;´Д`)
> どうにもSHFileOerationの中で落ちてる模様だよ
> なんでだろうな(;´Д`)
何も選択しない状態(起動した最初の状態)でDEL押すとおちるの?(;´Д`)
参考:2001/07/27(金)05時23分11秒
> 2001/07/27 (金) 05:23:11 ◆ ▼ ◇ [mirai]> > Win98だよ
> > 削除のときSHFileOperation使ってる?
> '削除する場合の処理
> 'ごみ箱に捨てる
> With SHFILEOPSTRUCT1
> .hwnd = Me.hwnd
> .wFunc = FO_DELETE
> .pFrom = Text.Text
> .fFlags = FOF_ALLOWUNDO
> End With
> ' 成功すれば0を返します
> ret = SHFileOperation(SHFILEOPSTRUCT1)
> どっかからとってきていじってない(;´Д`)
どうにもSHFileOerationの中で落ちてる模様だよ
なんでだろうな(;´Д`)
参考:2001/07/27(金)05時20分29秒
> 2001/07/27 (金) 05:20:29 ◆ ▼ ◇ [mirai]> > マジで?(;´Д`)
> > FileExistsで存在確認してしかも
> > On Error Resume Nextまで書いてみたのだけど(;´Д`)(;´Д`)(;´Д`)
> > OS何よ(;´Д`)
> Win98だよ
> 削除のときSHFileOperation使ってる?
'削除する場合の処理
'ごみ箱に捨てる
With SHFILEOPSTRUCT1
.hwnd = Me.hwnd
.wFunc = FO_DELETE
.pFrom = Text.Text
.fFlags = FOF_ALLOWUNDO
End With
' 成功すれば0を返します
ret = SHFileOperation(SHFILEOPSTRUCT1)
どっかからとってきていじってない(;´Д`)
参考:2001/07/27(金)05時19分18秒
> 2001/07/27 (金) 05:19:18 ◆ ▼ ◇ [mirai]> > 未だに落ちるなヽ(´ー`)ノファイル削除する部分のソースだけでも
> マジで?(;´Д`)
> FileExistsで存在確認してしかも
> On Error Resume Nextまで書いてみたのだけど(;´Д`)(;´Д`)(;´Д`)
> OS何よ(;´Д`)
Win98だよ
削除のときSHFileOperation使ってる?
参考:2001/07/27(金)05時09分38秒
> 2001/07/27 (金) 05:09:38 ◆ ▼ ◇ [mirai]> > MPV更新した
> > まだおちる?ヽ(´ー`)ノDEL
> 未だに落ちるなヽ(´ー`)ノファイル削除する部分のソースだけでも
マジで?(;´Д`)
FileExistsで存在確認してしかも
On Error Resume Nextまで書いてみたのだけど(;´Д`)(;´Д`)(;´Д`)
OS何よ(;´Д`)
参考:2001/07/27(金)05時06分55秒
> 2001/07/27 (金) 05:06:55 ◆ ▼ ◇ [mirai]> MPV更新した
> まだおちる?ヽ(´ー`)ノDEL
未だに落ちるなヽ(´ー`)ノファイル削除する部分のソースだけでも
参考:2001/07/27(金)05時02分57秒
2001/07/27 (金) 05:02:57 ◆ ▼ ◇ [mirai]MPV更新した
まだおちる?ヽ(´ー`)ノDEL
上へ