ここから本文です

指定したフォルダに指定したファイルをrobocopyでコピーしようと考えています。 ...

kao********さん

2018/4/1419:49:39

指定したフォルダに指定したファイルをrobocopyでコピーしようと考えています。
そこでExcelVBAで次のようなコードを組んでみたのですがコピーが作成されません。

どこが間違っているのか教えていただけますか?


'*********************************************
'*********************************************
'ファイルコピー
'*********************************************
Sub CopyFile()
Dim Destination_Folder As Variant
'************************************************
'コピー先のフォルダの選択
'************************************************
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "コピー先フォルダの選択"
If .Show = True Then
Destination_Folder = .SelectedItems(1)
End If
End With

'************************************************
'コピーするファイルの選択
'************************************************
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "コピーを作成するファイルの選択"
.InitialFileName = ""
.AllowMultiSelect = True
If .Show = True Then
Application.ScreenUpdating = False
For i = 1 To .SelectedItems.Count
Call File_Copy(.SelectedItems(i), Destination_Folder)
Next
Application.ScreenUpdating = True
End If
End With
End Sub


'**********************************************
'**********************************************
Sub File_Copy(MyPath As String, TargetFolder)
Dim WSH As Object, wExec, sCmd As String
Dim FSO As Object, SourceFile As Variant

Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

SourceFile = FSO.GetFile(MyPath).Path
sCmd = "robocopy " & TargetFolder & " " & SourceFile & " /mir"
Set wExec = WSH.exec("%ComSpec% /c " & sCmd)

Do While wExec.Status = 0
DoEvents
Loop

Set wExec = Nothing
Set FSO = Nothing
Set WSH = Nothing
End Sub
'***************************************************
'***************************************************

閲覧数:
36
回答数:
1
お礼:
100枚

違反報告

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

プロフィール画像

カテゴリマスター

tac********さん

2018/4/1420:01:12

コピーできれば良いので有れば FileCopy の方が簡単だと思います。


ファイルをコピーする(FileCopyステートメント)|Excel VBA
http://www.moug.net/tech/exvba/0060075.html

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

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

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

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

閉じる

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

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

閉じる