Dans l'aide de VBA, du côté de FileSystemObjet ou dans l'aide de l'environnement des scripts de Windows (Windows scripting Host)
"figwer Philippe" a écrit dans le message de news:40a8ecdc$0$10203$
re bonjour!
une question très facile...
Comment en VB connaitre la taille d'un fichier (Ko)? sans l'ouvrir...bien
sûr
merci
Daniel.j
Comme cela:
Dim SizeFile SizeFile = FileLen("c:monfichier.xls") MsgBox "Taille du fichier " & SizeFile & " octets"
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"figwer Philippe" a écrit dans le message de news: 40a8ecdc$0$10203$ | re bonjour! | | une question très facile... | | Comment en VB connaitre la taille d'un fichier (Ko)? sans l'ouvrir...bien | sûr | | merci | |
Comme cela:
Dim SizeFile
SizeFile = FileLen("c:monfichier.xls")
MsgBox "Taille du fichier " & SizeFile & " octets"
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"figwer Philippe" <les.figwer@free.fr> a écrit dans le message de news:
40a8ecdc$0$10203$626a14ce@news.free.fr...
| re bonjour!
|
| une question très facile...
|
| Comment en VB connaitre la taille d'un fichier (Ko)? sans l'ouvrir...bien
| sûr
|
| merci
|
|
Dim SizeFile SizeFile = FileLen("c:monfichier.xls") MsgBox "Taille du fichier " & SizeFile & " octets"
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"figwer Philippe" a écrit dans le message de news: 40a8ecdc$0$10203$ | re bonjour! | | une question très facile... | | Comment en VB connaitre la taille d'un fichier (Ko)? sans l'ouvrir...bien | sûr | | merci | |
michdenis
Bonjour Philippe,
'--------------------- Sub Taille() Dim Fichier As String Fichier = "c:excelà voir.xls" With CreateObject("Scripting.FileSystemObject") MsgBox .GetFile(Fichier).Size / 1024 & " Ko." End With End Sub '---------------------
Salutations!
"figwer Philippe" a écrit dans le message de news:40a8ecdc$0$10203$ re bonjour!
une question très facile...
Comment en VB connaitre la taille d'un fichier (Ko)? sans l'ouvrir...bien sûr
merci
Bonjour Philippe,
'---------------------
Sub Taille()
Dim Fichier As String
Fichier = "c:excelà voir.xls"
With CreateObject("Scripting.FileSystemObject")
MsgBox .GetFile(Fichier).Size / 1024 & " Ko."
End With
End Sub
'---------------------
Salutations!
"figwer Philippe" <les.figwer@free.fr> a écrit dans le message de news:40a8ecdc$0$10203$626a14ce@news.free.fr...
re bonjour!
une question très facile...
Comment en VB connaitre la taille d'un fichier (Ko)? sans l'ouvrir...bien
sûr
'--------------------- Sub Taille() Dim Fichier As String Fichier = "c:excelà voir.xls" With CreateObject("Scripting.FileSystemObject") MsgBox .GetFile(Fichier).Size / 1024 & " Ko." End With End Sub '---------------------
Salutations!
"figwer Philippe" a écrit dans le message de news:40a8ecdc$0$10203$ re bonjour!
une question très facile...
Comment en VB connaitre la taille d'un fichier (Ko)? sans l'ouvrir...bien sûr