0

私はこのスクリプトを持っていますが、C：にファイルがない場合は、R：ドライブからファイルをコピーするように拡張したいと思います。現在、ファイルが存在するかどうかを確認しています。

現在、このスクリプトは1つのフォルダー\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 に答える