Vbscript VBS检查文件列表

我有这个脚本，但想扩展它，以检查文件列表，以及是否存在映射驱动器R:和映射（如果不存在）

FileA.txt FileB.txt FileD.txt
FileE.txt FileF.dll FileG.dll

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objLocalFile = objFSO.GetFile("C:\SCRIPT\SCRIPTTEXT.txt")
dtmLocalDate = objLocalFile.DateLastModified

Set objServerFile = objFSO.GetFile("R:\SCRIPT\SCRIPTTEXT.txt")
dtmServerDate = objServerFile.DateLastModified

If dtmLocalDate < dtmServerDate Then
    objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
End If

---

不映射，直接与url进行比较

on error resume next
path = "\\192.168.1.103\SCRIPT\SCRIPTTEXT.txt"
if objFSO.fileExist(path)
  Set objServerFile = objFSO.GetFile(path)
  dtmServerDate = objServerFile.DateLastModified
  if dtmLocalDate < dtmServerDate Then
    objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
  end if
else
  objFSO.CopyFile objServerFile.Path, objLocalFile.Path
end if

出错时继续下一步
path=“\\192.168.1.103\SCRIPT\SCRIPTTEXT.txt”
如果objFSO.fileExist（路径）
设置objServerFile=objFSO.GetFile（路径）
dtmServerDate=objServerFile.DateLastModified
如果dtmLocalDate

不要映射，直接与url进行比较

on error resume next
path = "\\192.168.1.103\SCRIPT\SCRIPTTEXT.txt"
if objFSO.fileExist(path)
  Set objServerFile = objFSO.GetFile(path)
  dtmServerDate = objServerFile.DateLastModified
  if dtmLocalDate < dtmServerDate Then
    objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
  end if
else
  objFSO.CopyFile objServerFile.Path, objLocalFile.Path
end if

出错时继续下一步
path=“\\192.168.1.103\SCRIPT\SCRIPTTEXT.txt”
如果objFSO.fileExist（路径）
设置objServerFile=objFSO.GetFile（路径）
dtmServerDate=objServerFile.DateLastModified
如果dtmLocalDate

谢谢，我如何通过FileA.txt、FileB.txt、FileE.txt、FileF.dll、FileG.dll循环.dll不在同一个文件夹中参见我的另一个答案，删除文件夹中的空文件，使用相同的技术谢谢，我如何通过FileA.txt、FileB.txt、FileE.txt、FileF.dll循环，FileG.dll.dll不在同一文件夹中参见我的另一个答案，删除文件夹中的空文件，使用相同的技术解决方案必须在VBScript中吗？使用批处理文件似乎更容易解决此问题。解决方案必须使用VBScript吗？使用批处理文件似乎更容易解决这个问题。