Ｐａｇｅ 666 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ファイルのコピーについて TOSHI 03/2/3(月) 19:02 ┗Re:ファイルのコピーについて ichinose 03/2/3(月) 19:34 ┗Re:ファイルのコピーについて TOSHI 03/2/3(月) 22:18 ┗Re:ファイルのコピーについて りん 03/2/3(月) 22:35 ┗Re:ファイルのコピーについて TOSHI 03/2/3(月) 22:38 ─────────────────────────────────────── ■題名 ： ファイルのコピーについて ■名前 ： TOSHI <nakayama@do-frontier.com> ■日付 ： 03/2/3(月) 19:02 -------------------------------------------------------------------------
| お世話になります。 エクセルＶＢＡというわけではありませんが、ＶＢＡでフォルダの中にある全てのファイルを別のフォルダにコピーしたいのですが、どのようにすればいいのでしょうか？ ご指導お願いします。 |
| ▼TOSHI さん： こんばんは。 >お世話になります。 >エクセルＶＢＡというわけではありませんが、ＶＢＡでフォルダの中にある全てのファイルを別のフォルダにコピーしたいのですが、どのようにすればいいのでしょうか？ >ご指導お願いします。 Fso（Win98以降）を使ってみました。 '===================================================== Sub test() Dim a As String Dim b As String a = "D:\EXCELファイル" b = "D:\開発物件\EXCELファイル" If フォルダコピー(a, b) = True Then MsgBox "ok" End If End Sub '====================================================== Function フォルダコピー(元フォルダー As String, コピーフォルダー As String) On Error Resume Next Dim fso As Object フォルダコピー = False Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFolder Source:=元フォルダー, Destination:=コピーフォルダー If Err.Number = 0 Then フォルダコピー = True End If Set fso = Nothing On Error GoTo 0 End Function 他にも過去レスにDosコマンドを使った方法もあったと思いましたが・・・。 |
| ご回答ありがとうございます。 FileCopyステートメントは使えないのでしょうか？ 例えば･･･ FileCopy c:\a\*.* c:\b\*.* のような記述はできないのでしょうか？ |
| TOSHI さん、こんばんわ。 >FileCopyステートメントは使えないのでしょうか？ Ｖ３で同じ質問があった分です。 http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=one;no=12225;id=Excel FileCopyはワイルドカードが使えないようなので、Dirをループして処理しています。 ご参考までに。 |
| ワイルドカードは使えないんですね。 なるほどです。 ありがとうございました。解決しました。 |