No.1ベストアンサー
- 回答日時:
メインフォルダの名前を1行目で定義しています。
適宜変更して下さい。「メインフォルダにおいてあるファイル」というのはエクセルファイルのみかどうか
不明でしたので、とりあえずどんなファイルでもコピーする事にしました。
エクセルファイルのみを対象にしたい場合は、
fName = Dir(MainDir) の行を
fName = Dir(MainDir & "*.xls") に変えて下さい。
Const MainDir As String = "c:\main\"
Dim fCnt, cpCnt As Integer
Sub MainFileSelect()
Dim fName As String
fCnt = 0
fName = Dir(MainDir)
' fName = Dir(MainDir & "*.xls")
Do Until fName = ""
If (GetAttr(MainDir & fName) And vbDirectory) <> vbDirectory Then
fCnt = fCnt + 1
Cells(fCnt, 1).Value = fName
End If
fName = Dir
Loop
Call MainFileCopy(MainDir)
MsgBox (CStr(fCnt) & "個のファイルを合計" & CStr(cpCnt) & "回コピーしました。")
End Sub
Sub MainFileCopy(targetDir As String)
Dim rIdx, dIdx, dCnt As Integer
Dim sDir As String
Dim sDirN(300) As String
sDir = Dir(targetDir, 22)
Do Until sDir = ""
If (GetAttr(targetDir & sDir)) = 16 Then
If (sDir <> ".") And (sDir <> "..") Then
dCnt = dCnt + 1
sDirN(dCnt) = sDir
End If
End If
sDir = Dir()
Loop
For dIdx = 1 To dCnt
Call MainFileCopy(targetDir & sDirN(dIdx) & "\")
Next
If targetDir <> MainDir Then
For rIdx = 1 To fCnt
FileCopy MainDir & Cells(rIdx, 1).Value, targetDir & Cells(rIdx, 1).Value
cpCnt = cpCnt + 1
Next
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
夏が終わったと感じる瞬間って、どんな時?
まだまだ暑い今日この頃。 しかしながら、もう夏は終わっている!……はず。 あなたが思う「夏が終わった!」エピソードを教えてください。
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
【お題】絵本のタイトル
【お題】 「ないた あかおに」「ねないこ だれだ」「はらぺこあおむし」みたいだけど、一体これどういう内容?と思った絵本のタイトルを教えて下さい
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
多数のサブディレクトリ内のファイルを一括コピーする
その他(プログラミング・Web制作)
-
サブフォルダー内のPDFファイルを別フォルダにコピーするVBA
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
同じファイル名 上書きしないフ...
-
frxファイルの役目
-
[エクセル]コピーするとオブジ...
-
バッチファイル XCOPYで上書き...
-
バッチファイルで指定拡張子以...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
エクセルのハイパーリンクがコ...
-
バッチファイル 別ファイルにリ...
-
Vba初心者です。下記のコード助...
-
ファイルコピーのスクリプトで...
-
FTPとファイルコピーの違いにつ...
-
FSO.CopyFileでのエラー無視方法
-
エクセル 同じデータなのに違う...
-
SDカードのコピーと再生の仕方...
-
開いている別のファイルにExcel...
-
バッチファイル、ドラッグ&ド...
-
バッチファイルのコピーで
-
日付の新しいファイルのみ自動...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
同じファイル名 上書きしないフ...
-
エクセルのハイパーリンクがコ...
-
Vba初心者です。下記のコード助...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
エクセル2010、図が大きすぎま...
-
[エクセル]コピーするとオブジ...
-
バッチファイルのコピーで
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
アクセス クエリを別のファイ...
-
vbsでExcelのシートをコピーす...
-
バッチファイル 別ファイルにリ...
-
FTPとファイルコピーの違いにつ...
-
開いている別のファイルにExcel...
-
LAN接続HDD(LinkStation)で削...
-
bat 同名ファイルコピー時にリ...
-
パワポでスライドをコピーでき...
-
ゴミ箱に移動するような削除を...
おすすめ情報