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

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


■85103 / )  Re[10]: 複数ファイルをコピーする時に進捗ダイアログを表示する
□投稿者/ カンガルー (8回)-(2017/09/11(Mon) 16:50:09)
ありがとうございます。


詳細な原理は理解できていませんが、
とりあえず、
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



返信 編集キー/


管理者用

- Child Tree -