0

我有这个脚本,但想在 C: 上没有文件的情况下对其进行增强:从 R: 驱动器复制一个。目前正在检查文件是否存在。

目前,此脚本将在单个文件夹 \SCRIPTS 中的多个文件上运行。当我为每个不同的文件名重复该语句时(我确实知道文件名)检查 R:\SCRIPTS 中的所有文件并与 C:\SCRIPTS 复制或覆盖文件进行比较的更经济的方法会很好,如果任何人都有一个可能有帮助的片段

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
4

1 回答 1

1
using System.IO;

Dim ServerFolder As New IO.DirectoryInfo("R:\SCRIPT")
Dim LocalFolder As New IO.DirectoryInfo("C:\SCRIPT")

For Each ServerFile In ServerFolder.GetFiles
    If IO.File.Exists(LocalFolder.FullName & "\" & ServerFile.Name) Then
        Dim LocalFile As New IO.FileInfo(LocalFolder.FullName & "\" & ServerFile.Name)
        If ServerFile.LastWriteTime > LocalFile.LastWriteTime Then
            IO.File.Copy(ServerFile.FullName, LocalFile.FullName, True)
        End If
    Else
        IO.File.Copy(ServerFile.FullName, LocalFolder.FullName & "\" & ServerFile.Name)
    End If
Next
于 2013-03-13T08:50:10.543 回答