Fråga : Skriva till den alla sammanslutningen loggar in i 1 överträffar sparar. Som per valen i en UNC.

Hi

Script till den alla sammanslutningen loggar in i 1 överträffar sparar. Som per valen i en faktisk UNC.

The skriva gs av Joe
Its en HTA släkt till href= " http://www.experts-exchange.com/Programming/Languages/Q_26309499.html#a33213939 " för programvara capturing.
Original Q.
ramming/Languages/Q_26309499.html#a33213939


Regards
Sharath
 för http://www.experts-exchang e.com/Prog Related lösningar för class= ": HTA kodifierar som kan lista all programvara i en bearbeta med maskin och ha ett litet att boxas för att skriva in kommentarer i…

Svar : Skriva till den alla sammanslutningen loggar in i 1 överträffar sparar. Som per valen i en UNC.

Och om du önskar Excel, kanske detta:
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:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

'Bana till rapporter
strReportPath= " \ \ SERVER1 \ MYSHARE ",

'Banan till XLS sparar
strXLS= " c:\report.xls ",


Fastställd objExcel = CreateObject (”Excel.Application”)
objExcel.DisplayAlerts = falskt
objExcel.Visible = True
Fastställd objWorkbook = objExcel.Workbooks.Add

Fastställd fso=CreateObject (”Scripting.FileSystemObject”)

'XLSEN finns?
Om fso.FileExists (strXLS) därefter
	ret=msgbox (”spara finns:  ” & strXLS & vbCrLf & vbCrLf & ”överskrivar? ”, vbYesNo+vbQuestion-, ”XLS-rapporttillverkare”)
	Om ret=vbNo därefter 
		wscript.quit
	Annars
		fso.DeleteFile (strXLS)
		Om fso.FileExists (strXLS) därefter
			msgbox ”kunde inte överskriva sparar:  ” & strXLS, vbExclamation, ”XLS-rapporttillverkare”,
			wscript.quit
		Avsluta om
	Avsluta om
Avsluta om

'Kretsa till och med TXT-rapporter
För varje som är oFile i fso.GetFolder (strReportPath). Sparar
	Om lcase ((oFile) fso.GetExtensionName)= " txt " därefter
		oFile MakeWorksheet
	Avsluta om
Därefter

För varje täcka i objWorkbook.Worksheets
	Om lämnat (täcka. Känt 5) = " täcka " täcker därefter. Borttagnings
Därefter

objExcel.DisplayAlerts = true
'objExcel.save-strXLS
objWorkbook.SaveAs-strXLS

(oFile) underMakeWorksheet,
	strWorksheet = (oFile) fso.GetBaseName,
	Fastställd objWorksheetNew = objWorkbook.Worksheets.Add
	objWorksheetNew.Name=strWorksheet
	
	(oFile) uppsättning oFile=fso.OpenTextFile,
	text=oFile.ReadAll
	oFile.close
	
	arrText = splittring (text, vbCrLf)
	
	'Skriv titelrader
	intRow=1
	objWorksheetNew.Cells (intRow, 1). Value= " programvarutitel ",
	objWorksheetNew.Cells (intRow, 2). Value= " programvarukommentar ",
	
	För varje fodra i arrText
		Om instr (fodra, vbTab), därefter
			arrLine=split (fodra, vbTab),
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1). Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2). Value=arrLine (1)
		Avsluta om
	Därefter
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	Fastställd objWorksheetNew = ingenting
	Fastställd oFile=Nothing
Avsluta suben
Andra lösningar  
 
programming4us programming4us