Discussion :

[jpclutier]

Bonjour,
Je récupère du code Vba dans Access derrière quelqu'un qui vient malheureusement de déceder.
Je dois récupérer la longueur d'un fichier (du contenu et non pas du nom du fichier).
J'essaye d'utiliser FileLen sans succès.
Merci de votre aide.
JP

[FreeAccess]

Bonjour,

En utilisant l'aide d'Access tu aurais trouvé de suite....

Renvoie une valeur de type Long indiquant la longueur en octets d'un fichier.
Syntaxe
FileLen(pathname)

.en plus avec un exemple...

Code :

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

1
2
3
4
5
Dim TailleEnOctet As Long
 
TailleEnOctet = FileLen("Le nom du fichier")
'Affiche la taille dans une boîte de message
MsgBox TailleEnOctet

..cela répond à ton problème ...

[jpclutier]

Bonjour et merci FreeAccess..
Hélas non voici mon code

Code :

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

1
2
3
4
5
Dim mavar as Long
 
mavar = FileLen ("chemin\fichier") 'nom fichier est du style 123456.xyz
 
MsgBox mavar

il me renvoi systématiquement '6'...c'est pour cela que j'avais posé la question

[FreeAccess]

Bonjour,

Etrange.....après plusieurs tests, je n'ai aucun problème.

Comment défini-tu le chemin et le nom du ficher
Est-ce une expression en "dur" du genre :

Code :

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

mavar = FileLen("C:\Temp\msdia80.dll")

...une variable....
...une sélection dans une boîte de dialogue

Sinon, fait un test sur un fichier précis dont tu connais la taille en octets...

[jpclutier]

Oui c'est cela ..j'ai toujours 6..j'essaye de faire autrement mais je tourne en rond. Merci de t'être penché sur mon souci.

[FreeAccess]

La tu m'étonne ...

Es-tu vraiment certain que le fichier vers lequel tu pointe fait plus que 6 octets

Sinon, il est possible d'employer une autre méthode pour connaitre la taille d'un fichier.....

Toutes les explications dans ce super tutorial:
Manipulation des fichiers en VBA

et particulièrement au paragraphe I-D-2. Les propriétés de l'objet File.....(voir la propriété Size)

[jpclutier]

Merci beaucoup. En effet je note cette page !
P.S. : J'ai ouvert un sujet sur le forum véritable cole pour du SQL sous Access