'#######################################################
'ファイルコピーを行います。
'#######################################################
Const ForReading = 1
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(".\Addresses.txt")
SouceFile = "C:\work\TEST_1\axengine.log"

Do Until objFile.AtEndOfStream
    strComputer = objFile.ReadLine
    strRemoteFile = "\\" & strComputer & "\c$\work\TEST_2\"
    FileSpec = strRemoteFile & "axengine.log"
    
    'ファイルコピー
    objFSO.CopyFile SouceFile, FileSpec, OverwriteExisting
    If objFSO.FileExists(FileSpec) Then
    
        'ファイル更新日付を表示
        Dim f, s
        Set f = objFSO.GetFile(FileSpec)
        s = f.DateLastModified
        Wscript.Echo s
    Else
        'Errorを表示
        Wscript.Echo "ERROR!!"
End If

Loop


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2018-01-03 (水) 21:45:50 (704d)