表紙へ

ファイルのコピー・削除２

ファイルのコピー・削除１との違いはファイルをまとめて扱う効率性と、ダイアログの表示などの付加操作にある。こちらで解説するほうが高度な例なので必要なければ使う必要はない。

１．コピーの単純な例

C:\CopySource\フォルダにあるすべてのファイルをC:\CopyTargetフォルダにコピーする。

時間がかかる場合にはコピー中のダイアログが自動的に表示される。

Private Declare Function SHFileOperation Lib "shell32" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer Private Structure SHFILEOPSTRUCT     Public hwnd As Integer     Public wFunc As Integer     Public pFrom As String     Public pTo As String     Public fFlags As Short     Public fAnyOperationsAborted As Integer     Public hNameMappings As Integer     Public lpszProgressTitle As String End Structure Private Const FO_COPY = &H2 Private Const FO_DELETE = &H3 Private Const FO_MOVE = &H1 Private Const FOF_ALLOWUNDO = &H40

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click     Dim Ret As Integer     Dim sf As SHFILEOPSTRUCT     sf.hwnd = Me.Handle.ToInt32     sf.wFunc = FO_COPY     sf.pFrom = "C:\CopySource\*.*" 'コピー元     sf.pTo = "C:\CopyTarget" 'コピー先     Ret = SHFileOperation(sf)     If Ret <> 0 Then MsgBox("失敗しました。") End Sub

▲サンプル１

　

２．特定の拡張子のファイルだけをコピーする例

上記「１．コピーの単純な例」を一箇所変更するだけ。変更箇所には色がつけてある。

ここでは例として bmp ファイルのみをコピーする。

Private Declare Function SHFileOperation Lib "shell32" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer Private Structure SHFILEOPSTRUCT     Public hwnd As Integer     Public wFunc As Integer     Public pFrom As String     Public pTo As String     Public fFlags As Short     Public fAnyOperationsAborted As Integer     Public hNameMappings As Integer     Public lpszProgressTitle As String End Structure Private Const FO_COPY = &H2 Private Const FO_DELETE = &H3 Private Const FO_MOVE = &H1 Private Const FOF_ALLOWUNDO = &H40

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click     Dim Ret As Integer     Dim sf As SHFILEOPSTRUCT     sf.hwnd = Me.Handle.ToInt32     sf.wFunc = FO_COPY     sf.pFrom = "C:\CopySource\*.bmp" 'コピー元     sf.pTo = "C:\CopyTarget" 'コピー先     Ret = SHFileOperation(sf)     If Ret <> 0 Then MsgBox("失敗しました。") End Sub

▲サンプル２

　

３．削除の単純な例

上記「１．コピーの単純な例」を２箇所変更するだけ。１箇所には色がつけてある。もう１箇所はあってもなくても良いのだが、sf.pTo = の行が不要になるので下記の例では削除してある。

Private Declare Function SHFileOperation Lib "shell32" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer Private Structure SHFILEOPSTRUCT     Public hwnd As Integer     Public wFunc As Integer     Public pFrom As String     Public pTo As String     Public fFlags As Short     Public fAnyOperationsAborted As Integer     Public hNameMappings As Integer     Public lpszProgressTitle As String End Structure Private Const FO_COPY = &H2 Private Const FO_DELETE = &H3 Private Const FO_MOVE = &H1 Private Const FOF_ALLOWUNDO = &H40

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click     Dim Ret As Integer     Dim sf As SHFILEOPSTRUCT     sf.hwnd = Me.Handle.ToInt32     sf.wFunc = FO_DELETE     sf.pFrom = "C:\DeleteSource\*.*" '削除元     Ret = SHFileOperation(sf)     If Ret <> 0 Then MsgBox("失敗しました。") End Sub

▲サンプル３

４．ゴミ箱に移す例

上記「３．削除の単純な例」に１箇所追加するだけ。追加箇所には色がつけてある。

Private Declare Function SHFileOperation Lib "shell32" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer Private Structure SHFILEOPSTRUCT     Public hwnd As Integer     Public wFunc As Integer     Public pFrom As String     Public pTo As String     Public fFlags As Short     Public fAnyOperationsAborted As Integer     Public hNameMappings As Integer     Public lpszProgressTitle As String End Structure Private Const FO_COPY = &H2 Private Const FO_DELETE = &H3 Private Const FO_MOVE = &H1 Private Const FOF_ALLOWUNDO = &H40

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click     Dim Ret As Integer     Dim sf As SHFILEOPSTRUCT     sf.hwnd = Me.Handle.ToInt32     sf.wFunc = FO_DELETE     sf.fFlags = FOF_ALLOWUNDO     sf.pFrom = "C:\DeleteSource\*.*" '削除元     Ret = SHFileOperation(sf)     If Ret <> 0 Then MsgBox("失敗しました。") End Sub

▲サンプル４