Les Snippets

Connexion

Obtenir la taille d'un fichier en octets

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 25/11/2008 22:43:42 et initié par PCPT [Liste]
Date de mise à jour : 25/11/2008 23:09:51
Vue : 1161
Catégorie(s) : Fichier / Disque
Langages dispo pour ce code :
- VB 2005, VB 2008, VB.NET 1.x
- VB6, VBA
- VBScript
- C# 2.x, C# 3.x



Langage : VB.NET 1.x , VB 2005 , VB 2008
Date ajout : 25/11/2008
Posté par PCPT [Liste]
DateMAJ : 25/11/2008
    Function GetFileLength(ByVal sPathFile As StringAs Long
        Dim oFile As New System.IO.FileInfo(sPathFile)
        Dim lRet As Long
        If oFile.Exists Then lRet = oFile.Length Else lRet = -1
        oFile = Nothing
        Return lRet
    End Function
Remarque :
MessageBox.Show(GetFileLength("c:\pagefile.sys").ToString)
Langage : VB6 , VBA
Date ajout : 25/11/2008
Posté par PCPT [Liste]
DateMAJ : 25/11/2008
Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" (ByVal lpFileName As StringAs Long
Function GetFileLength(ByVal sPathFile As String) As Long
    Const INVALID_FILE_ATTRIBUTES As Long  = &HFFFFFFFF
    If GetFileAttributes(sPathFile) = INVALID_FILE_ATTRIBUTES  Then
        GetFileLength = -1
    Else
        GetFileLength = FileLen(sPathFile)
    End If
End Function

Remarque :
parfois : n'autorise pas l'accès aux fichiers protégés en cours d'utilisation. retournera "-1" en ce cas, ou si le fichier n'existe pas
Langage : VBScript
Date ajout : 25/11/2008
Posté par PCPT [Liste]
DateMAJ : 25/11/2008
Function GetFileLength(sPathFile)
'    reader
    Dim oFSO 
    Set oFSO = CreateObject("Scripting.fileSystemObject")
    
'    retour
    If oFSO.FileExists(sPathFile) Then
        GetFileLength = oFSO.GetFile(sPathFile).Size
    Else
        GetFileLength = "-1"
    End If
    
'    nettoyage
    Set oFSO = Nothing
End Function

Langage : C# 2.x , C# 3.x
Date ajout : 03/12/2008
Posté par SwitchApocalyps [Liste]
public static long GetFileLength(string sPathFile)
{
  System.IO.FileInfo  oFile = new System.IO.FileInfo(sPathFile);
  if(oFile.Exists())
     return oFile.Length;
  else
     return -1;
}


Snippets en rapport avec : Fichier, Taille, Octets, Poid, Filelen



Codes sources en rapport avec : Fichier, Taille, Octets, Poid, Filelen

{Visual Basic, VB6, VB.NET, VB 2005} TAILLE D'UN FICHIER
Comment connaître la taille d'un fichier en octet ? Mettez ce code dans un bouton par exemple :...

{Visual Basic, VB6, VB.NET, VB 2005} CRÉATION D'UN FICHIER AUTOEXTRACTIBLE
Cette source a pour but de montrer comment créer un fichier autoextractible contenant plusieurs fich...

{ASP / ASP.NET} GESTION DES EXTENSIONS SELON LE SIZE
Fonction qui vérifie un nombre et le traduit selon le poids. Ex.: 1115798 donnera 1.1 MB Permet d...

{JAVA / J2EE} EXERCICE SUR LE RANDOMACCESSFILE A TAILLE FIXE
Permet un affichage, un ajout et une recherche dans un RandomAccessFile a taille FIXE...

{ColdFusion} LIMITER LA TAILLE DU FICHIER À UPLOADER
Ce code permet de fixer une limite à la taille des fichiers que l'on veut uploader...

{C / C++ / C++.NET} DETERMINER LA TAILLE D'UN FICHIER
devrait fonctionner sur tout compilateur ...

{Visual Basic, VB6, VB.NET, VB 2005} RÉCUPÉRER LA TAILLE D'UN FICHIER À LA FAÇON DE L'EXPLORATEUR WINDOWS
La fonction TailleFichieroKoMoGo permet de récupérer la taille d'un fichier à la façon de l'Explorat...

{Visual Basic, VB6, VB.NET, VB 2005} UN PROGRAMME QUI AMÉLIORE LES PROPRIÉTÉS DE WINDOWS
J'ai fais un mélange des sources "DATE, TAILLE, TYPE, NOM COUR, NOM LONG, ATTRIBUTS,... d'un fichier...

{Visual Basic, VB6, VB.NET, VB 2005} TAILLE D'UN LECTEUR OU D'UN REPERTOIRE EN OCTETS
Ces lignes de code permetent de retourner la taille(en octet) d'un lecteur logique,ou d'un répertoir...

{Visual Basic, VB6, VB.NET, VB 2005} TESTER LA PRESENCE D'UN FICHIER
Comment puis-je tester la présence d'un fichier ? Mettez cette fonction dans un Module :...