pathToZipFile= " C:\temp\test.zip ",
extractTo= " C:\temp\unzip ",
uppsättning fs = CreateObject (”Scripting.FileSystemObject”)
fastställd objLog = fs.CreateTextFile (”c:\temp\output.log”)
Dunkel oShell
Fastställd oShell = WScript.CreateObject (”WScript.Shell”)
oShell.run ”cmd/c mkdir” & extractTo
Fastställd oShell = ingenting
Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
Fastställd mapp = fso.getfolder (extractTo)
För varje som är oFile i mapp. Sparar
(riktig) oFile.Delete,
Därefter
uppsättning sa = CreateObject (”Shell.Application”)
uppsättning ns = (pathToZipFile) sa.NameSpace,
fastställd filesInzip = ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip)
EnumCSV extractTo
objLog.Close
underEnumCSV (targetdir)
Dunkel fso
Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
Fastställd mapp = fso.getfolder (targetdir)
För varje spara i Folder.Files
Om fso.GetExtensionName (spara), = " csv " därefter
ParseCSV (spara),
Avsluta om
Därefter
avsluta suben
sub (csv_file) ParseCSV,
uppsättning fs = CreateObject (”Scripting.FileSystemObject”)
fastställdt objTextFile = (csv_file) fs.OpenTextFile,
dunkel arrStr, fodrar, lastdate, lasttime
lines=0
Gör stunder INTE objTextFile.AtEndOfStream
arrStr = splittring (objTextFile.ReadLine, ”,”)
lines=lines+1
Kretsa
lastdate = byter ut (arrStr (0), """", "")
lasttime = byter ut (arrStr (1), """", "")
objLog.WriteLine ”sparar: ” & csv_file
den objLog.WriteLine-”slutsumman fodrar: ” & fodrar
sist objLog.WriteLine ”daterar: ” & lastdate
objLog.WriteLine-”sista gång: ” & lasttime
objLog.WriteLine
objTextFile.Close
avsluta suben
|