Obtenir la taille d'un fichier en octets


Commenter

Contenu du snippet 

Private Const GENERIC_READ    As Long = &H80000000
Private Const FILE_SHARE_READ As Long = &H1
Private Const OPEN_EXISTING   As Long = 3&
'
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes  As Any, ByVal dwCreationDisposition  As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As  Long
Private Declare Function GetFileSizeEx Lib "kernel32" (ByVal hFile As Long, lpFileSize As Currency) As Boolean
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'
Public Function GetFileLen(ByVal sPath As String) As Currency
    Dim hFile As Long, nSize As Currency
    hFile = CreateFile(sPath, GENERIC_READ, FILE_SHARE_READ,  ByVal 0&, OPEN_EXISTING, ByVal 0&, ByVal 0&)
    Call GetFileSizeEx(hFile, nSize)
    Call CloseHandle(hFile)
    GetFileLen = nSize * 10000
End Function

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)