C# と VB.NET の質問掲示板

ありがとうございます。


詳細な原理は理解できていませんが、
とりあえず、
No85096 で示してくださったStructureをコピーして使ってみました。

しかし、この方法だとファイルがコピーされなくなりました。

x86でコンパイルしており、ファイルパスは全て半角文字を使っています。

コピー用のFunctionは以下の物を用いています。

何が原因でしょうか？




    Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer


    Public Function SH_Copy(ByVal sPath As String, ByVal dPath As String) As Integer

        Dim shf As SHFILEOPSTRUCT

        With shf
            .wFunc = FO_COPY
            .pFrom = sPath & vbNullChar
            .pTo = dPath & vbNullChar
            .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR
            .lpszProgressTitle = "Sending " & sPath & " to " & dPath
        End With

        Return SHFileOperation(shf)

    End Function