Question : DOS et Vbs

Bonjour,

Iam ayant un dossier de fermeture éclair. Le manuscrit doit faire le works
1) qu'il doit défaire la fermeture éclair de ce file
2) sous les dossiers, beaucoup de dossiers de .csv sont manuscrit de present.
3) doit lire chacun et chaque dossier et lui a besoin des dates de grep dans les dossiers, lignes totales dans les dossiers et il devrait être réorienté à un autre dossier. Tous les dossiers que le rendement devrait avoir besoin pour être apposent dans 1 file.


This seront durs pour faire dans des vbs de DOS.So le manuscrit peut effectuer ce travail plus facile. Comme l'iam nouveau aux vbs satisfont expliquer briefly.
 class= de

Réponse : DOS et Vbs

essai maintenant :
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :

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é
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us