pathToZipFile= " C:\temp\test.zip "
extractTo= " C:\temp\unzip "
ajustar fs = CreateObject (“Scripting.FileSystemObject”)
ajustar o objLog = o fs.CreateTextFile (“c:\temp\output.log ")
Escurecer o oShell
Ajustar o oShell = o WScript.CreateObject (“WScript.Shell”)
oShell.run do “mkdir de /c cmd” & extractTo
Ajustar o oShell = nada
Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar o dobrador = o fso.getfolder (o extractTo)
Para cada um oFile no dobrador. Limas
oFile.Delete (verdadeiro)
Em seguida
ajustar sa = CreateObject (“Shell.Application”)
ajustar ns = sa.NameSpace (pathToZipFile)
ajustar o filesInzip = o ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip)
extractTo de EnumCSV
objLog.Close
EnumCSV secundário (targetdir)
Fso não ofuscante
Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar o dobrador = o fso.getfolder (o targetdir)
Para cada lima em Folder.Files
Se fso.GetExtensionName (lima) = " csv " então
ParseCSV (lima)
Terminar se
Em seguida
submarino da extremidade
ParseCSV secundário (csv_file)
ajustar fs = CreateObject (“Scripting.FileSystemObject”)
ajustar objTextFile = fs.OpenTextFile (csv_file)
escurecer o arrStr, linhas, lastdate, lasttime
lines=0
Fazer quando NÃO objTextFile.AtEndOfStream
arrStr = separação (objTextFile.ReadLine, “, ")
lines=lines+1
Laço
o lastdate = substitui (arrStr (0), """", o "")
o lasttime = substitui (arrStr (1), """", o "")
lima de objLog.WriteLine “: ” & csv_file
linhas totais de objLog.WriteLine “: ” & linhas
objLog.WriteLine “última data: ” & lastdate
objLog.WriteLine “última vez: ” & lasttime
objLog.WriteLine
objTextFile.Close
submarino da extremidade
|