File Size


Private Sub cmdShowFileSize_Click()
Dim strOldFile As String
Dim strOldSize As String
Dim strMyDir As String
Dim strMyFile As String

strMyDir = “c:\windows\desktop”
strMyFile = “readme.txt”

strOldFile = strMyDir & “\” & strMyFile
strOldSize = FileLen(strOldFile)

lblFileSize.Caption = “The file ” & strOldFile & ” is ” & _
Format(strOldSize, “#,##0″) & ” bytes in size.”

End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s