[vb6] Alternativa LOF Ejemplo 2
Publicado: 06 Jul 2012, 15:22
Bueno aqui se las dejo en la version vb6, espero y les sirva.
Saludos
Código: Seleccionar todo
' Autor ..........: Pink
'Nombre......... : Alternativa a LOF | FileLen
'Gracias JackNKush Por la sugerencia
Private Declare Function GetCompressedFileSizeA Lib "kernel32" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long
Private Sub Form_Load()
Dim Size As String, myfile As String
myfile = "C:\Users\Pink\Desktop\1.exe"
Size = CStr(GetCompressedFileSizeA(myfile, ByVal 0&))
MsgBox (Size)
End Sub