Pytanie : VBScript - Zdobycz Skoroszytowy Zawartość W Szyk

I potrzebować the zawartość (filename i filesize tylko) falcówka w dwuwymiarowy array.

For przykład - od the ścieżka "C:\TEMP\FOLDER23", I chcieć the pismo the imię wszystkie the kartoteka wraz z the rozmiar wszystkie the kartoteka, i the dane w dwuwymiarowy szyk wymieniać " aFileNameSize".

I mieć nadzieję że zapytanie the szyk produkować:

strFileName = aFileNameSize (0,0)
intFileSize = aFileNameSize (0,1)

Msgbox strFileName &", "& intFileSize

Pokaz:  GeeseInThePark.pdf, 3596238

Thank ty… DavidS

Odpowiedź : VBScript - Zdobycz Skoroszytowy Zawartość W Szyk

jeżeli nadzieja i rozumieć

ścieżka w linia (1)
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

strFolder = "C:\TEMP\FOLDER23"
Ciemnawy aFileNameSize ((0), 1)

Ustawiać objFSO = CreateObject ("Scripting.FileSystemObject")
Ustawiać colFolder = objFSO.GetFolder (strFolder)
Ustawiać colFiles = colFolder.Files

Dla ColFiles strFile W colFiles
aFileNameSize (0,0) = strfile.name
aFileNameSize (0,1) = strfile.size
strFileName = aFileNameSize (0,0)
intFileSize = aFileNameSize (0,1)
MsgBox strFileName & "," & intFileSize & "bajt"
Następnie
Inne rozwiązania  
 
programming4us programming4us