0

以下は私が使用しているコードです。ファイルとサブフォルダーを 1 つのディレクトリからネットワーク共有にコピーし、ソース ディレクトリからすべてのファイルとサブフォルダーを削除しています。

ログ、コピーされたファイル (パス付き)、ユーザー名、日付と時刻を記録したいと思います。以下のコードは、コピーと削除にうまく機能します。ログに追加する方法を理解するのに苦労しています。私は vbscripting に完全に慣れていないので、ご容赦ください。また、ログが作成される場所 (ローカル マシン) と、ログを追加する必要がある場所も指摘したいと思います。

Dim objShell
Set objShell = Wscript.CreateObject("WScript.Shell")

objshell.run "cmd /C robocopy J:\TestData\ J:\PushDataScript\Versa\ /move /e /log:J:\PushData.log"


'Set fso = CreateObject("Scripting.FileSystemObject")
'Set folder = fso.GetFolder("J:\SourcePath\")

' delete all files in root folder
'for each f in folder.Files
'On Error Resume Next
'name = f.name
'f.Delete True
'On Error GoTo 0
'Next

' delete all subfolders and files 
'For Each f In folder.SubFolders
'On Error Resume Next
'name = f.name
'f.Delete True
'On Error GoTo 0
'Next
4

2 に答える 2

0

使用robocopy:

robocopy "J:\SourcePath" "\\DestPath\Test" /move /e /log:"C:\path\to\your.log"

ログに記録する必要があるユーザー名と日時は? スクリプトを実行しているユーザーとスクリプト実行のタイムスタンプ? 後者はすでに によってログに記録されています。前者はrobocopy自分で追加する必要があります。

于 2013-08-06T16:47:00.717 に答える