Registry Size

[wbendl]

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