人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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


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


●質問者: clinejp
●カテゴリ:コンピュータ
✍キーワード:EX VisualBasic コピー ディレクトリ フォルダ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● tsecond
●35ポイント

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...


2 ● llusall
●35ポイント

これでどうでしょうか?

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 (ダミー)

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ