#navi(../)

 '#######################################################
 'ファイルコピーを行います。
 '#######################################################
 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
 

#navi(../)

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS