|
▼FSO初心者 さん:
>指定したフォルダ配下の、サブフォルダー内も含むすべてのファイルを、
>指定フォルダ内へコピーするマクロを作りたいです。
Fso は使ってません。代わりに DOSのXCOPYというコマンドで
処理をしています。
Sub try_XCopy()
Dim SrcPath As String: SrcPath = "D:\(Data)"
Dim DestPath As String: DestPath = "D:\(Temp)"
Dim tmpPath As String
Dim sCmd As String
Dim ok As Long
tmpPath = Environ$("Temp") & "\Dir.tmp" '一時ファイルパス
If Right$(DestPath, 1) <> "\" Then DestPath = DestPath & "\"
sCmd = "XCopy " & SrcPath & " " & DestPath _
& " /s /e /c /h /r /k > """ & tmpPath & """"
ok = CreateObject("WScript.Shell") _
.Run("%ComSpec% /C " & sCmd, 7, True) 'DOSコマンド実行
MsgBox "Copyが終了しました"
End Sub
|
|