quelques fonctions

[STéphane]

première fonction pour tester l'existence d'un fichier.
éventuellement à modifier selon vos goûts
Public Function File_Exists(str_fichier As String) As Boolean
File_Exists = (Dir$(str_fichier, vbHidden Or vbReadOnly Or vbSystem Or vbNormal) <> vbNullString)
End Function

deuxième fonction pour savoir si un fichier est vide
attention, une erreur se produit si le fichier donné n'existe pas.
éventuellement combiner l'usage avec la première fonction ou rajouter une gestion d'erreurs
Public Function File_Empty(str_fichier As String) As Boolean
File_Not_Empty = (FileLen(str_fichier) = 0)
End Function

bye
STéphane
Sub hh()
MsgBox File_Empty("c:\winnt\profiles\royers\bureau\toto.txt")
End Sub

 

[STéphane]

pour info regarder aussi du côté de la méthode GetAttr.


bye
stéphane