如何知道VBscript中未找到的文件的文件名

我不熟悉VBScript。我使用以下代码将不同位置的各种文件复制到一个文件夹：

代码：

我使用的txt文件包含不同文件的地址，但当文件丢失或重命名时，此脚本会在复制过程中出错。任何人都可以帮助我创建一条消息，其中文件丢失或重命名。

使用objFSO.FileExists（VFileName）测试源文件是否存在，并使用WScript.Echo或MsgBox记录事实

顺便说一句，你只需要一个FSO

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