pathToZipFile= " C:\temp\test.zip "
extractTo= " C:\temp\unzip "
regolar fs = CreateObject (“Scripting.FileSystemObject„)
regolare il objLog = fs.CreateTextFile (“c:\temp\output.log ")
Oscurare il oShell
Regolare il oShell = WScript.CreateObject (“WScript.Shell„)
oShell.run “mkdir di /c del cmd„ & extractTo
Regolare il oShell = niente
Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
Regolare il dispositivo di piegatura = fso.getfolder (extractTo)
Per ciascuno oFile in dispositivo di piegatura. Lime
oFile.Delete (allineare)
Dopo
regolar sa = CreateObject (“Shell.Application„)
regolar NS = sa.NameSpace (pathToZipFile)
regolare il filesInzip = ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip)
extractTo di EnumCSV
objLog.Close
EnumCSV secondario (targetdir)
Fso fioco
Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
Regolare il dispositivo di piegatura = fso.getfolder (targetdir)
Per ogni lima in Folder.Files
Se fso.GetExtensionName (lima) = " csv " allora
ParseCSV (lima)
Concluder se
Dopo
sommergibile dell'estremità
ParseCSV secondario (csv_file)
regolar fs = CreateObject (“Scripting.FileSystemObject„)
regolar objTextFile = fs.OpenTextFile (csv_file)
oscurare il arrStr, le linee, il lastdate, lasttime
lines=0
Fare mentre NON objTextFile.AtEndOfStream
il arrStr = ha spaccato (objTextFile.ReadLine, “, ")
lines=lines+1
Ciclo
il lastdate = sostituisce (arrStr (0), """", "")
il lasttime = sostituisce (arrStr (1), """", "")
lima di objLog.WriteLine “: „ & csv_file
linee totali di objLog.WriteLine “: „ & linee
objLog.WriteLine “ultima data: „ & lastdate
objLog.WriteLine “ultima volta: „ & lasttime
objLog.WriteLine
objTextFile.Close
sommergibile dell'estremità
|