| ■19333 / ) |
Re[3]: ファイルのコピーができません |
□投稿者/ よねＫＥＮ (150回)-(2008/05/22(Thu) 13:00:21)
|
闇雲に書き換えるのではなく、自分の書いているコードの意味を理解するようにした方がよいと思います。
(他の方のご指摘と重複しますが)気になる点を書いてみます。
> '構造体
> <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi, Pack:=1)> _
<StructLayout(LayoutKind.Sequential, CharSet:=.Unicode, Pack:=1)> _
> Private Structure SHFILEOPSTRUCT
> Dim hwnd As IntPtr
> Dim wFunc As Integer
> Dim pFrom As String
> Dim pTo As String
> Dim fFlags As Short
> Dim fAnyOperationsAborted As Boolean
> Dim hNameMappings As IntPtr
> Dim lpszProgressTitle As String
> End Structure
>
> '使用個所
> Dim udtFileOp As SHFILEOPSTRUCT
>
> '' 構造体の設定
> With udtFileOp
> .fFlags = mlngOperationFlg
> .hwnd = mlngTarget
> .pFrom = Marshal.StringToCoTaskMemUni(strFrom)
.pFrom = strFrom & ControlChars.NullChar & ControlChars.NullChar
> .pTo = Marshal.StringToCoTaskMemUni(strTo)
.pTo = strTo & ControlChars.NullChar & ControlChars.NullChar
> .wFunc = lngFunc
> End With
> Ret = Not CBool(SHFileOperation(udtFileOp))
これでうまく行きそうな気はしますが、ご提供いただいている情報が不足しているため、
本当にうまくいくかどうかはわかりません。
仮にうまく行ったとして、意味は理解してくださいね。
No19294とNo19330の魔界の仮面弁士さんのご指摘にあることですが、
■No19330
> 最後に、先ほどと同じ
>>> それぞれのメンバには、具体的にはどういった値を設定しているのでしょうか。
>を繰り返し書いておきます。定数宣言がどうなっているのかなども気になるので。
こちらについて情報を提供してください。
ここを明らかにすれば答えに一歩近づくと思います。
|
|
