Mengetahui ukuran file

Code : 

Private Sub Command1_Click()
    Dim fln, result
    Dim fname As String
   
    fname = "c:\db1.mdb"
   
    fln = FileLen(Trim(fname))
    result = CInt((fln / 1024) / 1024) & " MB" & "(" & fln & " BYTES)"
   
    MsgBox "FileSize is -->" & result
End Sub

 * Tambahkan sebuah form dan letakkan sebuah commandbutton kedalam Project vb6 Anda, kemudian copy-paste code diatas pada jendela coding Anda.

Read More