Discussion :

[Optitech]

Bonjour @ tous

Il y a quelque temps j'avias codé uen fonction !

Que voiçi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function unite(taille As Long) As String
 
Dim tabunite
Dim i As Integer
 
tabunite = Array("o", "Ko", "Mo", "Go", "To", "Po", "Eo", "Zo", "Yo")
i = 0
 
Do While taille >= 1024 And i < 8
 
taille = taille / 1024
i = i + 1
 
Loop
 
unite = Round(taille, 2) & " " & tabunite(i)
 
End Function

Aujourd'hui je me suis amuserr à la tester. J4ai sur mon Disque dur un iso d'un DVD (Debian) qui fait 4,36 Go.

Je creer une petite aplication qui me permet de choisir mon fichier. Puis pour connaitre le la taille de ce ficheir j'utilsie FileLen. Comme FileLen retourne les nombre en octets je passe ce nombre dans ma fonction.

Je fait le test avec mon iso est la focntione me retourne 137 Mo

fianalement je decompose tout le procecue et je m'appervcoit que File Len ne retourne pas le bon nombre ? Pouvez vous me dire pourquoi ?

Merci

@++

Optitech

[Pierre Fauconnier]

Bonjour

FileLen renvoie une valeur de type long, donc entre +/- -2.000.000.000 et + 2.000.000.000. La taille de ton fichier est trop grande pour être contenue dans un entier long, et donc pour pouvoir être retournée valablement par FileLen...

Ok?

[Vesta]

"Po", "Eo", "Zo", "Yo" je pense que ca tu peux déja commencer a oublier lol

Un entier Long a une valeur maximale de 2147483647, je suppose que filelen tu stocke sa valeur dans un integer plutot qu'on long... peu etre...

Moi j'ai fais le test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
?filelen("c:\pagefile.sys") 'Il fait 768Mo
 805306368

[Vesta]

D'apres ce que dis Pierre, Le type Long limiterai la valeur de taille du fichier a 2Go

Tu peux utiliser l'API GetFileSize avec ca ca devrait aller...

[Pierre Fauconnier]

Un entier Integer a une valeur maximale de 2147483647

Pour moi, un integer est limité à 32767.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cint(32768)

renvoie un dépassement de capacité

[Optitech]

Tu peux utiliser l'API GetFileSize avec ca ca devrait aller...

Voilà GetFileSize

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Declare Function GetFileSize Lib "kernel32"
Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Comme vous le voyez c'est une Long donc ca ne passe pas.

[ThierryAIM]

il faut utiliser GetFileSizeEx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Const GENERIC_READ = &H80000000
Const FILE_SHARE_READ = &H1
Const OPEN_EXISTING = 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
 
 
Dim hFile As Long, nSize As Currency
    'open the file
    hFile = CreateFile("C:\NomFichier.iso", GENERIC_READ, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, ByVal 0&, ByVal 0&)
    GetFileSizeEx hFile, nSize
    MsgBox "Size:" + Str$(nSize * 10000) + " bytes"
    CloseHandle hFile

[Pierre Fauconnier]

Bonjour

Tu pourrais utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Dim fs As New FileSystemObject
    Dim Fichier As File
    Dim Dossier As Folder
 
    Set Dossier = fs.GetFolder("MonDossier")
    Set Fichier = Dossier.Files("MonFichier")
    Debug.Print Fichier.Size

en cochant la référence à "Microsoft Scripting Runtime"
La propriété Size de Fichier est de type Variant et cela devrait passer.

Ok?