１３８．ダイアログ付きでファイルをコピーする



＜　使用用途　＞
プログレスバー、アニメーションがついている

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のSHFileOperationを使用します。
SHFileOperation＝＞ダイアログ付きでファイルを操作（コピー、削除、移動）する
　　＜引数＞
　　　　lpFileOp： SHFILEOPSTRUCT構造体
　　＠戻り値＠　　
　　　　正常終了0　　　　

<　ＳＡＭＰＬＥ　＞

’標準モジュール
Public　Declare Function SHFileOperation Lib "SHELL32" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Type SHFILEOPSTRUCT
　hwnd As Long
　 wFunc As Long
　pFrom As String
　pTo As String
　fFlags As Integer
　fAnyOperationsAborted As Long
　 hNameMappings As Long
　lpszProgressTitle As String
End Type

Const FO_COPY As Long = &H2

Const FOF_MULTIDESTFILES = &H1

’フォーム内の処理
Private Sub Command1_Click()
　
　 Dim Ret As Long
　Dim SH As SHFILEOPSTRUCT

With SH
　　 .hwnd = nHwnd
　　 .wFunc = FO_COPY
　　 .pFrom = Text1.Text
　　.pTo = Text2.Text
　　.fFlags = FOF_MULTIDESTFILES
End With

Ret = SHFileOperation(SH)

End Sub