Lire la taille d'un fichier ?

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Access Lire la taille d'un fichier ?

2 réponses

Bruno Frisque

30/12/2007 à 16:51

4ième envoi, jamais apparu ?
Problème sur le serveur ?

' - - - - - - - - - - - - - - - - - - - - - - -
Bonjour le Groupe,

Je voudrais afficher la taille d'un fichier image.Jpg sur un Form, histoire
de faire patienter l'utilisateur ... si l'image dépasse 5 ou 10 Mb.

J'ai bien essayé les codes :

"c:\data\HaE1.jpg".size
["c:\data\hae1.jpg"].Size
("c:\data\hae1.jpg").size

Toujours 1 message d'erreur .. Object required, Compile error, Expected ..,
Syntax error ...

Quelqu'un aurait-il une solution ?

D'avance merci !

2 réponses

Thierry (ze Titi)

30/12/2007 à 17:45

Bonjour

Bruno Frisque a émis l'idée suivante :

4ième envoi, jamais apparu ?
Problème sur le serveur ?

' - - - - - - - - - - - - - - - - - - - - - - -
Bonjour le Groupe,

Je voudrais afficher la taille d'un fichier image.Jpg sur un Form, histoire
de faire patienter l'utilisateur ... si l'image dépasse 5 ou 10 Mb.

J'ai bien essayé les codes :

"c:dataHaE1.jpg".size
["c:datahae1.jpg"].Size
("c:datahae1.jpg").size

Toujours 1 message d'erreur .. Object required, Compile error, Expected ..,
Syntax error ...

Quelqu'un aurait-il une solution ?

D'avance merci !

Et pour la 4ème fois, la même réponse t'es envoyée:

--
Cordialement,
Thierry

tout pour Access :
http://www.mpfa.info

Thierry (ze Titi)

30/12/2007 à 17:46

.../... mauvaise manipulation, réponse tronquée...

Voici une petite function

Function TailleFichier(NomFichier) As Long
Dim fs, f, taille As Long

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(NomFichier)
taille = f.Size
Set f = Nothing
Set fs = Nothing
TailleFichier = taille

End Function

Ensuite
x = TailleFichier("c:dataHaE1.jpg")

--
Cordialement,
Thierry

tout pour Access :
http://www.mpfa.info

Lire la taille d'un fichier ?

2 réponses

Veuillez sélectionner un problème