Ｐａｇｅ 281 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォルダをコピーしたい。 初心者M 02/10/18(金) 20:41 ┗Re:フォルダをコピーしたい。 ichinose 02/10/18(金) 21:19 ┗お礼が遅くなりました。 初心者M 02/10/31(木) 19:28 ─────────────────────────────────────── ■題名 ： フォルダをコピーしたい。 ■名前 ： 初心者M ■日付 ： 02/10/18(金) 20:41 -------------------------------------------------------------------------
| こんにちは。 お世話になってます。 数個のブックがはいっているフォルダを丸ごとコピーしたいのですが、何か方法はないでしょうか？ ＶＢのサンプル本にはＣＯＭのスクリプトという分類にそういったサンプルがあるのですが、どうもよく分かりません。 どなたかご存知の方がありましたら、教えてください。 宜しくお願いします。 |
| ▼初心者M さん： こんばんは。 >お世話になってます。 > >数個のブックがはいっているフォルダを丸ごとコピーしたいのですが、何か方法はないでしょうか？ >ＶＢのサンプル本にはＣＯＭのスクリプトという分類にそういったサンプルがあるのですが、どうもよく分かりません。 > >どなたかご存知の方がありましたら、教えてください。 >宜しくお願いします。 ＦＳＯでフォルダごとのコピーが出来ます｡詳細は､Helpを見てください。 '========================================================= Sub test() Dim a As String Dim b As String a = "D:\EXCELファイル" b = "D:\開発物件\EXCELファイル" If フォルダコピー(a, b) = True Then 'これで d:\EXCELファイルというフォルダがD:\開発物件\というフォルダ下にコピーされます 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 |
| 仕事がごたついて、お礼が遅くなってしまいました。 おかげさまで、無事コピーする事ができました。 ありがとうございました。(o^^o) |