ここから本文です

VBA EXCEL2010 フォルダのコピーについて Sub ボタン1_Click() Dim WSH As ...

djp********さん

2016/8/1917:20:57

VBA EXCEL2010 フォルダのコピーについて

Sub ボタン1_Click()

Dim WSH As Object

Dim strInitFolder As String

Dim strOutput As String

Set WSH = CreateObject("WScript.Shell")
strInitFolder = WSH.SpecialFolders("C:") & "\"
Set WSH = Nothing

With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "フォルダ選択"
.AllowMultiSelect = False
.InitialFileName = strInitFolder
If .Show = True Then
strOutput = .SelectedItems(1)
End If
End With

'CドライブのABCフォルダを、フォルダ選択ダイアログにおいて選択したフォルダへコピー
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder "C:\ABC", "フォルダダイアログにて選択したフォルダ"
Set FSO = Nothing

MsgBox "終"

End Sub

ボタン1を押下して、フォルダ選択ダイアログを表示させて選択します

選択後、CドライブにあるABCフォルダを、フォルダ選択ダイアログにおいて
選択したフォルダに、ABCフォルダをコピーしたく思います

VBAで行なうにはどのようにしたら良いでしょうか?

閲覧数:
80
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

kky********さん

2016/8/2013:05:29

FSO.CopyFolder "C:\ABC", "フォルダダイアログにて選択したフォルダ"


FSO.CopyFolder "C:\ABC", strOutput & "\"

にするだけで出来ませんか。

質問した人からのコメント

2016/8/22 09:38:06

ありがとうございました

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる