Problème avec FileLen

Bonjour @ tous ;)

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

Que voiçi :

Code:

---

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 8O

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 :roll:

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?

"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:

---

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

---

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...

Citation:

---

Envoyé par vesta

Un entier Integer a une valeur maximale de 2147483647

---

Pour moi, un integer est limité à 32767.

Code:

---

cint(32768)

---

renvoie un dépassement de capacité

Citation:

---

Envoyé par Vesta

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

---

Voilà GetFileSize

Code:

---

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.

il faut utiliser GetFileSizeEx

Code:

---

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

---

Bonjour

Tu pourrais utiliser ceci

Code:

---

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?

Citation:

---

Pour moi, un integer est limité à 32767.

---

Tu as raison, je voulais parler du long

Merci GetFileSizeEx ca marche !

Merci Pierre Fauconnier, ton code marche très bien !