0

下面是我正在使用的代码。我正在将文件和子文件夹从一个目录复制到网络共享，然后从源目录中删除所有文件和子文件夹。

我想记录、复制的文件（带路径）、用户名、日期和时间。下面的代码适用于复制和删除，我只是很难弄清楚如何添加日志记录。我是 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

日志是否需要逐项列出每个复制对象的时间戳，或者您只需要记录作业已运行并且每次运行有一个条目/时间戳？

如果您只需要将所有这些活动记录为一项作业，那么您可以从从命令 shell 运行 xcopy 切换到使用 .MoveFolder 方法。

于 2013-08-06T15:10:35.730 回答
0

使用robocopy：

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

您需要记录什么用户名和日期/时间？运行脚本的用户和脚本运行的时间戳？后者已经被 记录robocopy，前者你需要自己添加。

于 2013-08-06T16:47:00.717 回答