Option Explicit
Dim objFileSys
Dim sScriptPath
Dim sReadFile
Dim sWriteFile
Dim objRStream
Dim objWStream
Dim sText
Dim lPos
Dim lLen
Dim sInput
Dim sPath
Dim sFile
Dim sString
Dim sSearch
Dim sFrFull
Dim sToFull
Dim sXFrFull
Dim sXToFull
Dim sStmt
Dim sOpts
Dim log
Set objFileSys = CreateObject("Scripting.FileSystemObject")
sScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
sReadFile = objFileSys.BuildPath(sScriptPath,"aa.txt")
sWriteFile = objFileSys.BuildPath(sScriptPath,"WriteData.txt")
Set objRStream = objFileSys.OpenTextFile(sReadFile, 1)
Set objWStream = objFileSys.OpenTextFile(sWriteFile, 2, True)
sXFrFull = "E:\"
sXToFull = "D:\"
'sOpts = "/COPY:DATSO /V /R:1 /W:1 /FP /TS /TEE /L"
sOpts = "/COPY:DATSO /V /R:1 /W:1 /FP /TS /TEE"
log ="/LOG+:C:\Users\draftmaster\Desktop\logtest.txt"
Dim sOpt2
sOpt2 = "/MIR /ZB"
lPos = 0
lPos = 0
'WScript.echo "ff=" & sReadFile
Do Until objRStream.AtEndOfStream = True
sText = objRStream.ReadLine
sInput = "aab\bb\cc.txt" '検索対象の文字列
sString = Trim(sText)
lLen = Len(sString)
lPos = InstrRev(sString, "\")
sPath = Mid(sString,1,lPos - 1)
sFile = Mid(sString, lPos + 1,lLen - lPos)
sFrFull = sXFrFull & sPath
sToFull = sXToFull & sPath
sStmt = "Robocopy.exe " & sFrFull & " " & sToFull & " " & sFile & " " & sOpts & " " & log & " " & sOpt2
' WScript.echo "sStmt=" & sStmt
objWStream.WriteLine sStmt
Loop
objRStream.Close
objWStream.Close
Set objRStream = Nothing
Set objWStream = Nothing
Set objFileSys = Nothing
