quelques fonctions

  • Initiateur de la discussion STéphane
  • Date de début
S

STéphane

Guest
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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
299 832
Messages
1 979 413
Membres
206 721
dernier inscrit
Sud catering