Avis
Junior Poster
Joined: 07 Oct 2003
Posts: 510
Location: India
|
 Posted: Oct 8th, 2003 04:13 AM Post subject: Check Filesize by MB, KB or GB |
 |
|
This code belongs in a Class Module. The Class Module's name should always be FileSize
| Code: | '// FileSize by Macai
'// ICQ: 127514321
'// AIM: Warlord Luke
'// Y!M: macai_wasati_legato
'// MSN: [email]Macai_Has_Returned@Greetingsmortal.com[/email]
'// Email: [email]Luke@earthhopenetwork.net[/email]
'// Forum: Hot VB Forums ([url]www.hotVBforum.com[/url])
'// This code is Copyright © Luke Laupgheimer 2003
'// This code is NOT licensed for commercial or
'// uncredited redistribution
Option Explicit
Private mvar_strFilePath As String
Private mvar_curSizeInBytes As Currency
Private mvar_curSizeInBits As Currency
Private mvar_curSizeInKiloBytes As Currency
Private mvar_curSizeInKiloBits As Currency
Private mvar_curSizeInMegaBytes As Currency
Private mvar_curSizeInMegaBits As Currency
Private mvar_curSizeInGigaBytes As Currency
Private mvar_curSizeInGigaBits As Currency
Public Property Let curSizeInGigaBits(ByVal vData As Currency)
Err.Raise 123, "clsFileSize", "Read-Only Property"
End Property
Public Property Get curSizeInGigaBits() As Currency
curSizeInGigaBits = mvar_curSizeInGigaBits
End Property
Public Property Let curSizeInGigaBytes(ByVal vData As Currency)
Err.Raise 123, "clsFileSize", "Read-Only Property"
End Property
Public Property Get curSizeInGigaBytes() As Currency
curSizeInGigaBytes = mvar_curSizeInGigaBytes
End Property
Public Property Let curSizeInMegaBits(ByVal vData As Currency)
Err.Raise 123, "clsFileSize", "Read-Only Property"
End Property
Public Property Get curSizeInMegaBits() As Currency
curSizeInMegaBits = mvar_curSizeInMegaBits
End Property
Public Property Let curSizeInMegaBytes(ByVal vData As Currency)
Err.Raise 123, "clsFileSize", "Read-Only Property"
End Property
Public Property Get curSizeInMegaBytes() As Currency
curSizeInMegaBytes = mvar_curSizeInMegaBytes
End Property
Public Property Let curSizeInKiloBits(ByVal vData As Currency)
Err.Raise 123, "clsFileSize", "Read-Only Property"
End Property
Public Property Get curSizeInKiloBits() As Currency
curSizeInKiloBits = mvar_curSizeInKiloBits
End Property
Public Property Let curSizeInKiloBytes(ByVal vData As Currency)
Err.Raise 123, "clsFileSize", "Read-Only Property"
End Property
Public Property Get curSizeInKiloBytes() As Currency
curSizeInKiloBytes = mvar_curSizeInKiloBytes
End Property
Public Property Let curSizeInBits(ByVal vData As Currency)
Err.Raise 123, "clsFileSize", "Read-Only Property"
End Property
Public Property Get curSizeInBits() As Currency
curSizeInBits = mvar_curSizeInBits
End Property
Public Property Let curSizeInBytes(ByVal vData As Currency)
Err.Raise 123, "clsFileSize", "Read-Only Property"
End Property
Public Property Get curSizeInBytes() As Currency
curSizeInBytes = mvar_curSizeInBytes
End Property
Public Property Let FilePath(ByVal vData As String)
mvar_strFilePath = vData
RefreshData
End Property
Public Property Get FilePath() As String
FilePath = mvar_strFilePath
End Property
'///
Private Function RefreshData()
Dim curFileSizebytes As Currency
If FileExist(mvar_strFilePath) Then
curFileSizebytes = FileLen(mvar_strFilePath)
Else
Err.Raise 123, "clsFileSize", "File Not Found!"
End If
mvar_curSizeInBytes = curFileSizebytes
mvar_curSizeInBits = curFileSizebytes * 8
'
mvar_curSizeInKiloBytes = curFileSizebytes / 1024
mvar_curSizeInKiloBits = (curFileSizebytes * 8) / 1024
'
mvar_curSizeInMegaBytes = curFileSizebytes / (1024 ^ 2)
mvar_curSizeInMegaBits = (curFileSizebytes * 8) / (1024 ^ 2)
'
mvar_curSizeInGigaBytes = curFileSizebytes / (1024 ^ 3)
mvar_curSizeInGigaBits = (curFileSizebytes * 8) / (1024 ^ 3)
End Function
Private Function FileExist(strFilePath As String) As Boolean
On Error GoTo ErrorHan
Dim Fnum As Integer
Fnum = FreeFile
Open strFilePath For Input As Fnum
Close Fnum
FileExist = True
Exit Function
ErrorHan:
FileExist = False
End Function |
|
|
