ファイルのコピー中にアニメーションを表示させる方法

◆概要

このページは、Visual Basic 6.0でファイルのコピー中にアニメーションを表示させる方法について記載しています。


SHFileOperation()API関数を使うことで、ファイルのコピー中にファイルコピーのアニメーションを表示できます。

◆Sample code 

Option Explicit

' ファイル操作に関する情報を定義するユーザー定義のデータ型
Private Type SHFILEOPSTRUCT
   hWnd      As Long
   wfunc     As Long
   pfrom   As String
   pto As String
   fFlags As Long
   fAnyOperationsAborted As Long
   hNamemappings As Long
   lpszProgressTitle As String
End Type

'ファイルを操作する関数
Private Declare Function SHFileOperation Lib "shell32.dll" _
    Alias "SHFileOperationA" _
    (lpFileOp As SHFILEOPSTRUCT) As Long

Private Const FO_COPY = &H2&


Private Sub Command1_Click()
    Dim utdShellOpStruct As SHFILEOPSTRUCT
    Dim lngReturnCode    As Long

    ' ファイル操作に関する情報を指定
    With utdShellOpStruct
        ' ダイアログの親ウィンドウハンドル
        .hWnd = Form1.hWnd
        ' コピー
        .wfunc = FO_COPY
        ' コピー元のファイル
        .pfrom = "d:\temp\*.*"
        ' コピー先のファイル
        .pto = "d:\work"
    End With

    ' ファイルのコピーを実行
    lngReturnCode = SHFileOperation(utdShellOpStruct)

End Sub
　　


◆実行結果

実行結果

▼ページトップへ