Vraag : Dos & Vbs

Hallo,

Iam een pitdossier hebben. Het manuscript moet na works
1) doen het moet openritsen dat file
2) in het kader van de dossiers, vele .csv dossiers/>3) Manuscript present.


This zal zijn taai om in vbs manuscript te doen DOS.So kan dit gemakkelijkere werk doen. Aangezien iam nieuw aan vbs briefly.
 gelieve te verklaren

Antwoord : Dos & Vbs

probeer nu:
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 "

reeks fs = CreateObject („Scripting.FileSystemObject“)
reeks objLog = fs.CreateTextFile („c:\temp\output.log“)
	
Schemerige oShell
Reeks oShell = WScript.CreateObject („WScript.Shell“)
oShell.run „cmd /c mkdir“ & extractTo
Reeks oShell = niets

Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
Vastgestelde omslag = fso.getfolder (extractTo)
Voor elk oFile in  omslag. Dossiers
	(Waar) oFile.Delete
Daarna

reeks sa = CreateObject („Shell.Application“)
vastgesteld NS = (pathToZipFile) sa.NameSpace
reeks filesInzip = ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip) 

extractTo van EnumCSV

objLog.Close

sub EnumCSV (targetdir)
	Schemerige fso
	Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
	Vastgestelde omslag = fso.getfolder (targetdir)
	Voor Elk Dossier in Folder.Files
		Als fso.GetExtensionName (Dossier) = " csv " toen
			ParseCSV (Dossier)		
		Eind als
	Daarna
eind sub

sub (csv_file) ParseCSV
	reeks fs = CreateObject („Scripting.FileSystemObject“)
	vastgestelde objTextFile = (csv_file) fs.OpenTextFile
	schemerige arrStr, lijnen, lastdate, lasttime
	lines=0
	
	Doe terwijl NIET objTextFile.AtEndOfStream
		arrStr = verdeel (objTextFile.ReadLine, „,“)
		lines=lines+1
	Lijn
	
	lastdate = vervang (arrStr (0), """", "")
	lasttime = vervang (arrStr (1), """", "")
	
	objLog.WriteLine „Dossier: “ & csv_file
	objLog.WriteLine „Totale Lijnen: “ & lijnen
	objLog.WriteLine „duur datum: “ & lastdate
	objLog.WriteLine „Laatste tijd: “ & lasttime
	objLog.WriteLine
	objTextFile.Close
eind sub
Andere oplossingen  
 
programming4us programming4us