strFolder = „C:\TEMP\FOLDER23“
Schwach aFileNameSize (0, 1)
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
colFolder = objFSO.GetFolder (strFolder) einstellen
colFiles = colFolder.Files einstellen
Für jedes strFile in den colFiles
aFileNameSize (0.0) = strfile.name
aFileNameSize (0.1) = strfile.size
strFileName = aFileNameSize (0.0)
intFileSize = aFileNameSize (0.1)
MsgBox strFileName u. „,“ u. intFileSize u. „Bytes“
Zunächst
|