چه جوری در Vb6 وقتی فایل رو در Common Dilog لود کردم از اون حجم بگیریم .

چه جوری در Vb6 وقتی فایل رو در Common Dilog لود کردم از اون حجم بگیریم .

يعني چي از اون حجم بگيرم؟

کد:

---

Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub Command1_Click()
Dim hFile As Long
CommonDialog1.ShowOpen
hFile = CreateFile(CommonDialog1.FileName, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
Text1.Text = "Size is =" + Str$(GetFileSize(hFile, 0)) + " bytes"
CloseHandle hFile
End Sub

---