VB.Net Taille d'un fichier [Résolu]

cs_MagDix 532 Messages postés lundi 5 juin 2006Date d'inscription 6 octobre 2012 Dernière intervention - 25 nov. 2008 à 22:05 - Dernière réponse : cs_MagDix 532 Messages postés lundi 5 juin 2006Date d'inscription 6 octobre 2012 Dernière intervention
- 26 nov. 2008 à 14:37
Salut à tous..


Je cherche un moyen pour connaitre la taille d'un fichier...


J'ai essayé avec la fonction Path... mais je ne trouve rien.. et la fonction IO et je ne trouve rien non plus...




Comment fait-on ???


merci de votre aide
Afficher la suite 

4 réponses

Répondre au sujet
cs_fauve 661 Messages postés vendredi 2 décembre 2005Date d'inscription 23 mars 2011 Dernière intervention - 26 nov. 2008 à 11:20
+3
Utile
Salut,

Voici une autre fonction plus performante que celle de PCPT qui permet d'afficher la taille du fichier en octets, Ko, Mo, Go et To.

 Sub Taille_fichier(ByVal Filename As String)
        ' Filename doit être de la forme suivante D:\test.txt
        Dim calcul As Integer
        Dim Fi As New IO.FileInfo(Filename)
        ' Déclaration et initialisation de la variable Fi

        If Fi.Length < 1024 Then
            ' Vrai si le fichier a une taille inférieure à 1 Ko
            MsgBox("La taille du fichier est de " + Fi.Length + " octets")
        End If

        If Fi.Length >= 1024 And Fi.Length < 1024 * Math.Pow(10, 3) Then
            ' Vrai si le fichier a une taille comprise entre 1 Ko et 999 Ko
            calcul = Math.Round((Fi.Length) / 1024, 2)
            ' calcul recoit la taille du fichier en Ko
            MsgBox("La taille du fichier est de " + calcul.ToString + " Ko")
        End If

        If Fi.Length >= 1024 * Math.Pow(10, 3) And Fi.Length < 1024 * Math.Pow(10, 6) Then
            ' Vrai si le fichier a une taille comprise entre 1 Mo et 999 Mo
            calcul = Math.Round((Fi.Length) / (1024 * Math.Pow(10, 3)), 2)
            'calcul recoit la taille du fichier en Mo
            MsgBox("La taille du fichier est de " + calcul.ToString + " Mo")
        End If

        If Fi.Length >= 1024 * Math.Pow(10, 6) And Fi.Length < 1024 * Math.Pow(10, 9) Then
            ' Vrai si le fichier a une taille comprise entre 1 Go et 999 Go
            calcul = Math.Round((Fi.Length) / (1024 * Math.Pow(10, 6)), 2)
            'calcul recoit la taille du fichier en Go
            MsgBox("La taille du fichier est de " + calcul.ToString + " Go")
        End If

        If Fi.Length >= 1024 * Math.Pow(10, 9) And Fi.Length < 1024 * Math.Pow(10, 12) Then
            ' Vrai si le fichier a une taille comprise entre 1 To et 999 To
            calcul = Math.Round((Fi.Length) / (1024 * Math.Pow(10, 9)), 2)
            'calcul recoit la taille du fichier en To
            MsgBox("La taille du fichier est de " + calcul.ToString + " To")
        End If

    End Sub

++

Fauve
Pensez : Réponse Acceptée 
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_fauve
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 25 nov. 2008 à 22:44
0
Utile
salut,

c'était pas sur codyx donc j'ai posté, mais google arrive aussi à te répondre très rapidement



<hr />
'    OBTENIR LA TAILLE D'UN FICHIER EN OCTETS
'    http://www.codyx.org/snippet_obtenir-taille-fichier-octets_741.aspx#2203
'    Posté par [ 401740 PCPT ] le 25/11/2008
<hr />



    Function GetFileLength(ByVal sPathFile As String) As Long
        Dim sFile As New System.IO.FileInfo(sPathFile)
        Dim lRet As Long
        If sFile.Exists Then lRet = sFile.Length Else lRet = -1
        sFile = Nothing
        Return lRet
    End Function




'----------------------------------------------------------------



'Remarques :


'se teste avec
:
'MessageBox.Show(GetFileLength("c:\pagefile.sys").ToString)





++

<hr size ="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Commenter la réponse de PCPT
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 26 nov. 2008 à 12:22
0
Utile
salut,



[../auteur/FAUVE/636345.aspx fauve]

-> "plus performante" ?

tu utilises strictement le même code sans vérifier l'existance du fichier
le reste c'est de l'affichage.....
(loin d'être optimisé, d'ailleurs...)


Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Commenter la réponse de PCPT
cs_MagDix 532 Messages postés lundi 5 juin 2006Date d'inscription 6 octobre 2012 Dernière intervention - 26 nov. 2008 à 14:37
0
Utile
merci à vous deux
Commenter la réponse de cs_MagDix

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.