pathToZipFile= " C:\temp\test.zip "
extractTo= " C:\temp\unzip "
placer fs = CreateObject (« Scripting.FileSystemObject »)
placer l'objLog = le fs.CreateTextFile (« c:\temp\output.log ")
Obscurcir l'oShell
Placer l'oShell = le WScript.CreateObject (« WScript.Shell »)
oShell.run « mkdir de /c de cmd » et extractTo
Placer l'oShell = rien
Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
Placer la chemise = le fso.getfolder (l'extractTo)
Pour chacun oFile dans la chemise. Dossiers
oFile.Delete (vrai)
Après
placer SA = CreateObject (« Shell.Application »)
placer NS = sa.NameSpace (pathToZipFile)
placer le filesInzip = le ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip)
extractTo d'EnumCSV
objLog.Close
EnumCSV secondaire (targetdir)
Faible fso
Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
Placer la chemise = le fso.getfolder (le targetdir)
Pour chaque dossier dans Folder.Files
Si fso.GetExtensionName (dossier) = " csv " puis
ParseCSV (dossier)
Finir si
Après
sous-marin d'extrémité
ParseCSV secondaire (csv_file)
placer fs = CreateObject (« Scripting.FileSystemObject »)
placer objTextFile = fs.OpenTextFile (csv_file)
obscurcir l'arrStr, lignes, lastdate, lasttime
lines=0
Faire tandis que PAS objTextFile.AtEndOfStream
l'arrStr = s'est dédoublé (objTextFile.ReadLine, « , ")
lines=lines+1
Boucle
le lastdate = remplacent (arrStr (0), """", "")
le lasttime = remplacent (arrStr (1), """", "")
dossier d'objLog.WriteLine « : » et csv_file
lignes totales d'objLog.WriteLine « : » et lignes
objLog.WriteLine « la date passée : » et lastdate
objLog.WriteLine « la fois passée : » et lasttime
objLog.WriteLine
objTextFile.Close
sous-marin d'extrémité
|