Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel_D
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" a écrit dans le message de news:
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.
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" <frisque@datamovers.be> a écrit dans le message de news:OfGLmQjRIHA.5288@TK2MSFTNGP04.phx.gbl...
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.
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" a écrit dans le message de news:
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.