Comment obtenir la taille d'un fichier de plus de 2Go sans ouvrir le fichier ?
Ce code permet d'obtenir la taille d'un fichier de plus de 2 Go sans utiliser l'API GetFileSize de Windows qui oblige à ouvrir le fichier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 function SizeOfFile(FileName : String) : Int64 ; var sr : TSearchRec ; begin if FindFirst(FileName, faAnyFile, sr) = 0 then begin Result := (sr.FindData.nFileSizeHigh shl 32) + sr.FindData.nFileSizeLow ; FindClose(sr) ; end else Result := 0 ; end ;
Partager