フォルダ 指定ファイル群をフォルダからフォルダへコピー

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ 指定ファイル群をフォルダからフォルダへコピー]
Option Explicit


Sub FileCopyFolderToFolder(ExtensionName As String, _
                            tgtPath As String, OutPath As String)
'***********************************************
'指定ファイル群をフォルダからフォルダへコピー
'***********************************************
'【引数】
'ExtensionName 対象ファイル拡張子等 例"*.htm*"
'tgtPath 元フォルダ、コピー元フルパス
'OutPath 先フォルダ、コピー先フルパス

'移動先に同じ名前のファイルが存在する場合は削除
'手段は他にもあります。

Dim buf As String

    buf = Dir(tgtPath & "\" & ExtensionName)
    Do Until buf = Empty
        'FileCopyの場合は同名ファイルでもコピー(上書き)します。
        FileCopy tgtPath & "\" & buf, OutPath & "\" & buf
        buf = Dir()
    Loop
End Sub






Production Japan Import Application. Since 1998