Fråga : VBScript - tillfångatagandemappen tillfredsställer in i samling

Jag behöver det tillfångatagandet tillfredsställer (filenamen och filesize endast), av en mapp in i en tvådimensionell array.

For example - från banan ”C:\TEMP\FOLDER23”, jag skulle önskar skriva till det tillfångatagandet namnger allra sparar tillsammans med storleksanpassar allra sparar och sätter datan in i en namngiven tvådimensionell samling " aFileNameSize”.

I skulle hopp att en query av samlingen skulle jordbruksprodukter: strFileName för

= aFileNameSize
(för 0.0) intFileSize = aFileNameSize (0.1) strFileName för

Msgbox &”, ”& skärm för intFileSize

:  GeeseInThePark.pdf 3596238

Thank dig… DavidS " klar "

Svar : VBScript - tillfångatagandemappen tillfredsställer in i samling

om hopp som jag förstår

banan fodrar in 1
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

strFolder = ”C:\TEMP\FOLDER23”,
Dunkelt aFileNameSize (0, 1)

Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Fastställd colFolder = objFSO.GetFolder (strFolder)
Fastställda colFiles = colFolder.Files

För varje som är strFile i colFiles
aFileNameSize (0.0) = strfile.name
aFileNameSize (0.1) = strfile.size
strFileName = aFileNameSize (0.0)
intFileSize = aFileNameSize (0.1)
MsgBox strFileName & ”,” & intFileSize & ”byte”,
Därefter
Andra lösningar  
 
programming4us programming4us