Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


75904 / 76732 ←次へ | 前へ→

【5259】別解
回答  ichinose  - 03/4/30(水) 16:44 -

引用なし
パスワード
   ▼jam さん:
ポンタ さん、こうさん
こんにちは。

'====================================================
Sub test()
  Dim あるフォルダ As String
  Dim 別のフォルダ As String
  Dim コピー条件 As String
  あるフォルダ = "D:\My Documents\TESTエリア"
  別のフォルダ = "D:\My Documents\copytest"
  コピー条件 = "*.xls"
  MsgBox "フォルダ「" & _
    別のフォルダ & "」に " & sp_copy(あるフォルダ, 別のフォルダ, コピー条件) & "個のファイルをコピーしました"
End Sub
'===================================================================
Function sp_copy(あるフォルダ As String, 別のフォルダ As String, コピー条件 As String) As Long
  On Error GoTo err_sp_copy
  Dim flnm As String
  flnm = Dir(あるフォルダ & "\" & コピー条件)
  sp_copy = 0
  Do While flnm <> ""
   FileCopy あるフォルダ & "\" & flnm, 別のフォルダ & "\" & flnm
   sp_copy = sp_copy + 1
   flnm = Dir()
   Loop
ret_sp_copy:
  On Error GoTo 0
  Exit Function
err_sp_copy:
  MsgBox Error(Err.Number)
  Resume ret_sp_copy
End Function
でどうでしょう?

ちなみにDosコマンドだと、
'=============================================================
Sub test()
  Dim あるフォルダ As String
  Dim 別のフォルダ As String
  Dim コピー条件 As String
  あるフォルダ = "D:\My Documents\TESTエリア"
  別のフォルダ = "D:\My Documents\copytest"
  コピー条件 = "*.xls"
  Call copy_dos(あるフォルダ, 別のフォルダ, コピー条件)
End Sub
'======================================================================
Sub copy_dos(あるフォルダ As String, 別のフォルダ As String, コピー条件 As String)
   Shell Environ$("COMSPEC") & " /C copy """ & あるフォルダ & "\" & コピー条件 & """, """ & 別のフォルダ & "\*.*""", vbHide
End Sub

Dosコマンドって、VBAで初めて使いましたので、ちょっと心配ですが・・。
Shellだから、同期を取らなければならないときは、面倒かも・・・。
でも、処理は、最初のコードより、速かったですよ。

0 hits

【5238】指定ディレクトリからファイルを探しコピー jam 03/4/30(水) 12:01 質問
【5241】「ある条件」って何? こう 03/4/30(水) 12:54 発言
【5245】Re:「ある条件」って何? jam 03/4/30(水) 13:36 回答
【5252】Re:「ある条件」って何? jam 03/4/30(水) 14:54 質問
【5256】Re:指定ディレクトリからファイルを探しコ... ポンタ 03/4/30(水) 16:04 回答
【5257】Re:指定ディレクトリからファイルを探しコ... jam 03/4/30(水) 16:20 質問
【5258】Re:指定ディレクトリからファイルを探しコ... ポンタ 03/4/30(水) 16:31 回答
【5260】Re:指定ディレクトリからファイルを探しコ... jam 03/4/30(水) 16:46 質問
【5262】Re:指定ディレクトリからファイルを探しコ... ポンタ 03/4/30(水) 17:58 回答
【5263】Re:指定ディレクトリからファイルを探しコ... jam 03/4/30(水) 19:15 お礼
【5259】別解 ichinose 03/4/30(水) 16:44 回答
【5264】Re:別解 jam 03/4/30(水) 19:18 お礼

75904 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free