die lösung in vb ist ziemlich einfach:
im vb-project muß ein verweis auf "Microsoft Scripting Runtime" gesetzt sein. daraus schließe ich, daß es auch mit vbs funktioniert.
Sub FileSize()
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.GetFile("c:\windows\user.dat")
MsgBox Round(fil.Size / 1024 + 0.49) & " KB"
End Sub
wb
|