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

Question

我是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文件包含不同文件的地址，但是当文件丢失或重命名时，此脚本在复制期间出错。任何人都可以帮我创建一个文件丢失或重命名的消息。

Answer 1

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

顺便说一下，你只需要一个FSO。