taille d'un fichier texte

[Maxime]

bonjour,

je dois effectuer un traitement à l'aide d'une macro, mais à condition qu'un
fichier c:\toto.txt ne soit pas vide. Je sais déterminer si ce fichier
c:\toto.txt existe, mais que dois-je faire pour connaître sa taille ? Je
pense que ça doit être tout bête.

Merci beaucoup

[Denis Michon]

Bonjour Maxime,

Tu renseignes la variable File selon le fichier que tu veux tester dans la procédure Test.

'--------------------------
Sub Test()
Dim File As String

File = "C:\Excel\Classeur2.xls"
If Dir(File) <> "" Then
MsgBox TailleFichier(File)
Else
MsgBox "Fichier inexistant"
End If
End Sub

'--------------------------
Function TailleFichier(LeFichier)

Dim FS As Object, F As Object
Set FS = CreateObject("Scripting.FileSystemObject")
Set F = FS.GetFile(LeFichier)
TailleFichier = Format(F.Size, "#,##0.000") & " octets"
Set FS = Nothing: Set F = Nothing

End Function
'--------------------------

Salutations!

"Maxime" <lol...@lollo.com> a écrit dans le message de news:boai8u$gh0$1...@s1.read.news.oleane.net...

[Maxime]

merci bine je vais tester ça

"Denis Michon" <denis....@cgocable.ca> a écrit dans le message de
news:dS7qb.9650$Ng3....@charlie.risq.qc.ca...