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.
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
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:ExcelClasseur2.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" a écrit dans le message de news:boai8u$gh0$ 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
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:ExcelClasseur2.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" <lollor@lollo.com> a écrit dans le message de news:boai8u$gh0$1@s1.read.news.oleane.net...
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.
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:ExcelClasseur2.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" a écrit dans le message de news:boai8u$gh0$ 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
Maxime
merci bine je vais tester ça
"Denis Michon" a écrit dans le message de news:dS7qb.9650$
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:ExcelClasseur2.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" a écrit dans le message de news:boai8u$gh0$
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
merci bine je vais tester ça
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:dS7qb.9650$Ng3.2799@charlie.risq.qc.ca...
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:ExcelClasseur2.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" <lollor@lollo.com> a écrit dans le message de
news:boai8u$gh0$1@s1.read.news.oleane.net...
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.
"Denis Michon" a écrit dans le message de news:dS7qb.9650$
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:ExcelClasseur2.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" a écrit dans le message de news:boai8u$gh0$
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.
