Vraag : Zet wat om u in een omslag in de Ontdekkingsreiziger van Vensters (de Mening van Details) in een spreadsheet van Excel ziet.

Is het mogelijk om wat u in een omslag in de Ontdekkingsreiziger van Vensters (de Mening van Details om te zetten) in een spreadsheet van Excel ziet?

Hence, zal de spreadsheet van Excel een lijst van

- Filenames onder de kolom van de Naam hebben,/>- data
- dossiertype onder de grootte van het type column
- dossier onder niet zekere grootte column

I am die deze vraag behoren tot in zones onderver*delen. Ik hoop dit correcte is.

Thanks!

Antwoord : Zet wat om u in een omslag in de Ontdekkingsreiziger van Vensters (de Mening van Details) in een spreadsheet van Excel ziet.

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:

Const FOLDER_PATH = „c:\temp\files“
const OUTPUT_EXCEL_FILE = „c:\temp\output.xlsx“
const SHEET_HEADERS = „Naam, Gewijzigde Datum, Type, Grootte“
Const xlExcel7 = 51

Op Fout hervat daarna
Plaats objExcel = CreateObject („Excel.Application“)
objExcel.Visible = vals
 
Als (Err.Number <> 0) toen
    Op Fout GoTo 0
    Wscript.Echo „de gevonden niet toepassing van Excel.“
    Wscript.Quit
Eind als
Op Fout GoTo 0

col=1
row=2

'Cre�ër een nieuw werkboek.
objExcel.Workbooks.Add

'Bind aan aantekenvel.
Plaats objSheet = objExcel.ActiveWorkbook.Worksheets (1)

voor elke kopbal in Spleet (SHEET_HEADERS, „,“)
	objSheet.Cells (1, col.). Waarde = kopbal
	col=col+1
daarna

Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Reeks objFolder = objFSO.GetFolder (FOLDER_PATH)
Voor elk objFile in objFolder.Files
	objSheet.Cells (rij, 1). Waarde = objFile.Name
	objSheet.Cells (rij, 2). Waarde = objFile.DateLastModified
	objSheet.Cells (rij, 3). Waarde = objFile.Type
	objSheet.Cells (rij, 4). Waarde = objFile.Size & „KB“
	row=row+1
Daarna

objExcel.DisplayAlerts = Vals
objExcel.ActiveWorkbook.SaveAs OUTPUT_EXCEL_FILE, xlExcel7
objExcel.ActiveWorkbook.Close vals

'Houd op met Excel.
objExcel.Application.Quit

Plaats objSheet = niets
Plaats objExcel = niets

Wscript.Echo „gedaan.“
Andere oplossingen  
 
programming4us programming4us