strFolder = « C:\TEMP\FOLDER23 »
Faible aFileNameSize (0, 1)
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Placer le colFolder = l'objFSO.GetFolder (le strFolder)
Placer les colFiles = le colFolder.Files
Pour chacun strFile dans les colFiles
aFileNameSize (0.0) = strfile.name
aFileNameSize (0.1) = strfile.size
le strFileName = aFileNameSize (0.0)
intFileSize = aFileNameSize (0.1)
Le strFileName de MsgBox et « , » et intFileSize et des « bytes »
Après
|