Memeriksa Kapasitas file di VB6

Memeriksa ukuran/kapasitas sebuah file :


Dim lSize As Long
Dim lSizeOnDisk As Long
Dim sPath As String

sPath = App.Path & "\Arman.exe"

lSize = GetFileSize(sPath)
lSizeOnDisk = GetSizeOnDisk(sPath)


labelku.Caption = sPath
If lSize <> 2008 Then
Dim Jawablah As Integer
Jawablah = MsgBox("Arman.exe rusak/hilang/berubah ! program tidak bisa dilanjutkan ...", _
vbQuestion + vbYes, "Error!")
Unload Me

End If