strFolder = “C:\TEMP\FOLDER23”
Não ofuscante aFileNameSize (0, 1)
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Ajustar o colFolder = o objFSO.GetFolder (o strFolder)
Ajustar colFiles = colFolder.Files
Para cada um strFile nos colFiles
aFileNameSize (0.0) = strfile.name
aFileNameSize (0.1) = strfile.size
o strFileName = aFileNameSize (0.0)
intFileSize = aFileNameSize (0.1)
O strFileName de MsgBox & “,” & intFileSize & “bytes”
Em seguida
|