我是vbcript的新手。我使用以下代码将不同位置的各种文件复制到一个文件夹:
代码:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\Copy Support\LocationPath.txt", 1)
totalfile = 0
Const OverwriteExisting = True
Do Until objFile.AtEndOfStream
strCharacters = objFile.ReadLine
VFileName = strCharacters
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile VFileName , "D:\Variance Reports\", OverwriteExisting
totalfile = totalfile + 1
Loop
Wscript.Echo "Total Files " & totalfile
我正在使用的txt文件包含不同文件的地址,但是当文件丢失或重命名时,此脚本在复制期间出错。任何人都可以帮我创建一个文件丢失或重命名的消息。
答案 0 :(得分:3)
使用objFSO.FileExists(VFileName)测试源文件是否存在,使用WScript.Echo或MsgBox记录事实。
顺便说一下,你只需要一个FSO。