strFolder = «C:\TEMP\FOLDER23»
Тускло aFileNameSize (0, 1)
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Установите colFolder = objFSO.GetFolder (strFolder)
Установите colFiles = colFolder.Files
Для каждого strFile в colFiles
aFileNameSize (0.0) = strfile.name
aFileNameSize (0.1) = strfile.size
strFileName = aFileNameSize (0.0)
intFileSize = aFileNameSize (0.1)
strFileName MsgBox & «,» & intFileSize & «байты»
Затем
|