• Home
 · 
• Files/File Controls/Input/Output
 · 
• File Size

File Size

File Size

Rate File Size

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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