OPTENIR DANS UNE STRING LA TAILLE D'UN FICHIER EN KO, MO, GO...

Commenter

Contenu du snippet 

Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByVal cchBuf As Long) As Long
'retourne la taille d'un fichier se trouvant en sPath
Public Function TailleFichier(ByVal sPath As String) As String
Dim StrOut As String
Dim lSize As Long
    'On vérifie si le fichier existe
    If Dir(sPath) <> vbNullString Then
        'on récupère sa taille
        lSize = FileLen(sPath)
        StrOut = Space(64)
        'on la formate avec StrFormatByteSize
        Call StrFormatByteSize(lSize, StrOut, Len(StrOut) - 1)
        TailleFichier = Trim$(StrOut)
    End If
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 (renocmoa)