使用路径 - VBScript创建复制文件的日志文件

时间:2013-08-06 14:52:18

标签: logging vbscript

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

我想记录,复制的文件(带路径),用户名,日期&时间。 下面的代码适用于复制和删除,我只是很难确定如何添加日志记录。我是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

2 个答案:

答案 0 :(得分:0)

日志是否需要按时间戳加盖每个复制的对象进行逐项列表,或者您是否只需要记录作业运行并且每次运行都有一个条目/时间戳?

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

答案 1 :(得分:0)

使用robocopy

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

您需要记录哪些用户名和日期/时间?用户运行脚本运行的脚本和时间戳?后者已由robocopy记录,前者需要自行添加。