Autor Tema: ¿como Saber El Tamaño De Un Archivo? (Leído 999 veces)

roxiii · « **en:** Sábado 17 de Abril de 2004, 02:52 »

hola, y un saludo a todos los del foro, deseo saber como puedo obtener el tamaño en bytes de un archivo desde codigo, lo que deseo hacer es averiguar si lo han modificado desde la ultima vez que se guardo, gradias por su ayuda...

Brroz

Hola roxiii.

Puedes usar una función de este estilo.

Código: Text

 
Option Explicit
Private Const INVALID_HANDLE_VALUE = -1
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
Private Declare Function FindFirstFile Lib &#34;Kernel32.dll&#34; Alias &#34;FindFirstFileA&#34; (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib &#34;Kernel32.dll&#34; (ByVal hFindFile As Long) As Long
 
Public Function GetFileSizeKb(ByVal File As String) As Double
    Dim lngFile As Long
    Dim f As WIN32_FIND_DATA
    lngFile = FindFirstFile(File & Chr(0), f)
    If lngFile = INVALID_HANDLE_VALUE Then Exit Function
    GetFileSizeKb = f.nFileSizeLow / 1024
    FindClose (lngFile)
End Function
 
 

Acabo de fijarme que quieres el tamaño en bytes, la función lo da en Kb. Por supuesto que para arreglarlo tienes que quitar la división por 1024.

Suerte.

roxiii

Hola Brroz, ha funcionado muy bien, solo me queda una duda, me sale un error donde dice que el valor debe ser una constante y se refiere a MAX_PATH, que valor deberia tener esa variable, yo le puse cualquier valor y corre bien, pero quisiera saber de donde vienen esa constante, y por todo muchas

Brroz

Hola roxiii.

Disculpa el gazapo...

Código: Text

 
Private Const MAX_PATH = 260

Tamaño máximo para la vía de acceso.

Chao.

SoloCodigo

Autor Tema: ¿como Saber El Tamaño De Un Archivo? (Leído 999 veces)

roxiii

¿como Saber El Tamaño De Un Archivo?

Brroz

Re: ¿como Saber El Tamaño De Un Archivo?

roxiii

Re: ¿como Saber El Tamaño De Un Archivo?

Brroz

Re: ¿como Saber El Tamaño De Un Archivo?