Obtener el tamaño de un archivo de gran tamaño
Cómo obtener el tamaño de un archivo muy grande.
función GetFileSize(const FileName: string): Int64
var
& nbsp & nbsp SizeLow, SizeHigh: DWord
& nbsp & nbsp hFile: THandle
begin
& nbsp & nbsp Resultado := 0
& nbsp & nbsp hFile := FileOpen(nombre de archivo, fmOpenRead)
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp si hFile <> 0 then
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SizeLow := Windows.GetFileSize(hFile, @SizeHigh)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := (SizeHigh shl 32) SizeLow
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp instrucciones fileclose(hFile)
& nbsp & nbsp final
fin
Obtener el tamaño de un archivo de gran tamaño
Obtener el tamaño de un archivo de gran tamaño : Multi-millones de consejos para hacer su vida mas facil.
Como obtener el tamaño de un archivo muy grande.
funcion GetFileSize(const FileName: string): Int64
var
& nbsp & nbsp SizeLow, SizeHigh: DWord
& nbsp & nbsp hFile: THandle
begin
& nbsp & nbsp Resultado := 0
& nbsp & nbsp hFile := FileOpen(nombre de archivo, fmOpenRead)
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp si hFile <> 0 then
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SizeLow := Windows.GetFileSize(hFile, @SizeHigh)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := (SizeHigh shl 32) SizeLow
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp instrucciones fileclose(hFile)
& nbsp & nbsp final
fin
Obtener el tamaño de un archivo de gran tamaño
By Consejos Y Trucos
Obtener el tamaño de un archivo de gran tamaño : Multi-millones de consejos para hacer su vida más fácil.