VisualBasicの質問です。

あるディレクトリをその階層ごと丸ごとコピーして下記のように複製するにはどうしたらよいですか。

Ex
1.フォルダ名「顧客購入履歴」
2.1をコピーして、同じ階層に「顧客購入履歴-1」「顧客購入履歴-2」・・・と沢山作る。


よろしくお願いいたします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2006/04/24 08:35:58
  • 終了:2006/04/25 07:40:41

回答(2件)

id:tsecond No.1

tsecond回答回数4ベストアンサー獲得回数02006/04/24 09:13:43

ポイント35pt

FSOを使ってみてはいかがでしょうか。


例)

Dim fso As Object

Set fso = CreateObject("scripting.filesystemobject")

fso.Copyfolder "顧客購入履歴", "顧客購入履歴-1"

Set fso = Nothing




http://msdn.microsoft.com/library/ja/default.asp?url=/librar...

id:llusall No.2

llusall回答回数505ベストアンサー獲得回数612006/04/24 09:24:22

ポイント35pt

これでどうでしょうか?

Dim bRtn As Boolean

bRtn = FolderCopy("D:\顧客購入履歴","D:\顧客購入履歴-1",True)

MsgBox "OK"


Function FolderCopy(ByVal sSource As String, ByVal sDest As String, ByVal bUwagaki As Boolean)

On Error Resume Next

Dim fso

Dim objFile

FolderCopy = False

Err.Clear

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

If fso.FolderExists(sDest) = False Then

fso.CreateFolder (sDest)

End If

fso.CopyFolder sSource , sDest, bUwagaki

Set fso = Nothing

If Err.Number <> 0 Then Exit Function

FolderCopy = True

End Function

http://www.google.co.jp (ダミー)

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません