Lire la taille d'un fichier ?

Le
Bruno Frisque
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 !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6341961
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)
Le #6341951
.../... 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
Publicité
Poster une réponse
Anonyme