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.
Monday, September 20, 2010
Subscribe to:
Post Comments (Atom)
0 comments:
Post a Comment