以下是我正在使用的代码。 我正在复制文件&从一个目录到网络共享的子文件夹,然后从源目录中删除所有文件和子文件夹。
我想记录,复制的文件(带路径),用户名,日期&时间。 下面的代码适用于复制和删除,我只是很难确定如何添加日志记录。我是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
答案 0 :(得分:0)
日志是否需要按时间戳加盖每个复制的对象进行逐项列表,或者您是否只需要记录作业运行并且每次运行都有一个条目/时间戳?
如果您只需要将所有这些活动记录为一个作业,那么您可以从运行xcopy从命令shell切换到使用.MoveFolder方法。
答案 1 :(得分:0)
使用robocopy
:
robocopy "J:\SourcePath" "\\DestPath\Test" /move /e /log:"C:\path\to\your.log"
您需要记录哪些用户名和日期/时间?用户运行脚本运行的脚本和时间戳?后者已由robocopy
记录,前者需要自行添加。