PDA

View Full Version : Solved: Link text box to a file size ?



gunny2k9
06-08-2011, 01:56 AM
i Have a Textbox/Label on a UserForm in VBA ... and i would like it to have a number value of basicly a log files size in KB/MB

eg Log file Size 100 k/bytes

any idea's iof the simpliest/easiest way ?

gunny2k9
06-08-2011, 02:03 AM
LOL nvm haha got there in the end, unless any one ok a better idea ? as this is in Bytes


Set FSys = CreateObject("Scripting.FileSystemObject")
Set file = FSys.getfile("c:\test.txt") 'Set your filename here
'MsgBox file.Size
Label1.Caption = (Label1.Caption) + file.Size


ok to get K/bytes more or less :)


Set FSys = CreateObject("Scripting.FileSystemObject")
Set file = FSys.getfile("c:\test.txt") 'Set your filename here
MsgBox (file.Size / 1000)
Label1.Caption = (Label1.Caption) + file.Size / 1000