strFolder = “C:\TEMP\FOLDER23”
Dévil aFileNameSize (0, 1)
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Fijar el colFolder = objFSO.GetFolder (el strFolder)
Fijar los colFiles = colFolder.Files
Para cada uno strFile en colFiles
aFileNameSize (0.0) = strfile.name
aFileNameSize (0.1) = strfile.size
el strFileName = aFileNameSize (0.0)
intFileSize = aFileNameSize (0.1)
El strFileName de MsgBox y “,” y intFileSize y los “octetos”
Después
|