strFolder = “C:\TEMP\FOLDER23„
Fioco aFileNameSize (0, 1)
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Regolare il colFolder = objFSO.GetFolder (strFolder)
Regolare i colFiles = colFolder.Files
Per ciascuno strFile nei colFiles
aFileNameSize (0.0) = strfile.name
aFileNameSize (0.1) = strfile.size
lo strFileName = aFileNameSize (0.0)
intFileSize = aFileNameSize (0.1)
Lo strFileName di MsgBox & “,„ & intFileSize & “byte„
Dopo
|