Question

我有这个脚本，但是想要增强它，在没有C上的文件的情况下：从R：Drive中复制一个。目前正在检查文件是否存在。

目前，此脚本将在单个文件夹\ 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

Answer 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

Vb文件存在脚本

1 个答案: