Size d'un fichier ??

Le
Bruno Frisque
Bonjour le Groupe,

Il faudrait 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 un truc facile ?

D'avance merci

Et Joyeux Noël !
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
Michel_D
Le #6343021
Bonjour,

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


"Bruno Frisque"
Bonjour le Groupe,

Il faudrait 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 un truc facile ?

D'avance merci

Et Joyeux Noël !







Publicité
Poster une réponse
Anonyme