 |
|
ป่าวครับเป็นไฟล์ script ครับ
'Open text file
Dim DemoTran,MyLogFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim MyDate
MyDate = DatePart("yyyy",Date) _
& Right("0" & DatePart("m",Date), 2) _
& Right("0" & DatePart("d",Date), 2)
Dim MyTime
MyTime = Time
'Check file on location
If objFSO.FileExists("C:\Users\Tarhunter\Documents\VBScript\Create Text File\test.csv") Then
Set objTextFile = objFSO.OpenTextFile("test.csv", 1)
Set DemoTran = objFSO.CreateTextFile("C:\Users\Tarhunter\Documents\VBScript\Create Text File\File Tran\"&"TestInsert"&MyDate& ".txt")
'Import database to SQL server
Dim count_row
count_row = 0
do while not (objTextFile.AtEndOfStream)
arrStr = Split(objTextFile.ReadLine, """,""")
strDate = arrStr(19)
strHour = arrStr(20)
strInterval = arrStr(22)
strService = arrStr(23)
strOfferCall = arrStr(24)
strAbdCall = arrStr(25)
strQueueTime = arrStr(26)
strAnsCall = arrStr(27)
strQueueTimeIncAbd = arrStr(28)
count_row = count_row+1
' msgbox strDate & " " & strHour & " " & strInterval & " " & strService & " " & strOfferCall & " " & strAbdCall & " " & strQueueTime & " " & strAnsCall & " " & strQueueTimeIncAbd
DemoTran.WriteLine(strDate&" "&strHour&" "&strInterval&" "&strService&" "&strOfferCall&" "&strAbdCall&" "&strAnsCall&" "&strQueueTime&" "&strQueueTimeIncAbd)
Loop
objTextFile.close
Dim count
count = count_row
' objFSO.MoveFile "C:\Users\Tarhunter\Documents\VBScript\Create Text File\test.csv", "C:\Users\Tarhunter\Documents\VBScript\Create Text File\Backup\"
objFSO.CopyFile "C:\Users\Tarhunter\Documents\VBScript\Create Text File\test.csv", "C:\Users\Tarhunter\Documents\VBScript\Create Text File\Backup\"
objFSO.DeleteFile "C:\Users\Tarhunter\Documents\VBScript\Create Text File\test.csv"
Set MyLogFile = objFSO.CreateTextFile("C:\Users\Tarhunter\Documents\VBScript\Create Text File\File Log\"&MyDate& ".txt")
MyLogFile.WriteLine("Date : "& MyDate)
MyLogFile.WriteLine("Time : "&MyTime)
Dim MyProcess
Dim TypeProcess
TypeProcess = "Backup Data"
MyLogFile.WriteLine("Process : "&TypeProcess)
Dim StatusProcess
MyLogFile.WriteLine("Data in process : "&count&" "&"row")
StatusProcess = "Complete"
MyLogFile.WriteLine("Status : "&StatusProcess)
MyLogFile.WriteLine("......................................................................................................................")
MyLogFile.Close
Else
Set MyLogFile = objFSO.CreateTextFile("C:\Users\Tarhunter\Documents\VBScript\Create Text File\File Log\"&MyDate& ".txt")
MyLogFile.WriteLine("Date : "& MyDate)
MyLogFile.WriteLine("Time : "&MyTime)
MyLogFile.WriteLine("Process : Backup Data.")
MyLogFile.WriteLine("Status : File Not Found.!")
MyLogFile.WriteLine("......................................................................................................................")
MsgBox("File Not Found.!")
MyLogFile.Close
End If
อยากให้ script นี้มันรันทุกวันโดยไม่ต้องกดรันอ่ะครับ
|
 |
 |
 |
 |
| Date :
2013-09-18 16:24:54 |
By :
tarhunter |
|
 |
 |
 |
 |
|
|
 |
