exist

Question

salut je voudrais savoir si c'est possible avec la commande exist ou avec une autre
faire le controle par rapport a des fichiers
si monfichier141004 exist alors importer dans un text box
pour sa pour toute les dates
Merci

cs_DARKSIDIOUS · Answer

Utilise pour cela une routine de traitement d'erreur :


On error goto erreur

Dim iTaille As Integer

Let iTaille = FileLen(NomDuFichier) 'c'est juste pour savoir s'il exite : s'il n'existe pas, il y a une erreur !

Exit Sub

erreur:

'Le fichier n'existe pas !

_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_DARKSIDIOUS · Answer

Note, si tu veux faire le test pour toutes les dates, crées plutôt une fonction qui te renvoie un booléen selon l'existance du fichier, et appele cette fonction pour chaque nom de fichier que tu veux.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_CanisLupus · Answer

Salut,

On peut aussi utiliser dir :

if dir(monfichier141004)<>"" then il existe

Cordialement, CanisLupus

cs_CanisLupus · Answer

Une tite fonction que tu appelleras comme çà par exemple :

Retour = LireFichier("14/10/04", me.text1)

Function LireFichier(d As Date, t as TextBox) As Boolean
Dim Fichier As String
Dim NumFic as integer

Fichier = monfichier & Format$(d, "ddmmyy")
NumFic = FreeFile

If Dir(Fichier) <> "" Then

  Open Fichier For Input As #NumFic
  t.Text = Input(LOF(NumFic), #NumFic )
  Close #NumFic

End If

End Function


Cordialement, CanisLupus

cs_CanisLupus · Answer

Oups, oubli :

Function LireFichier(d As Date, t as TextBox) As Boolean
Dim Fichier As String
Dim NumFic as integer

Fichier = monfichier & Format$(d, "ddmmyy")
NumFic = FreeFile

If Dir(Fichier) <> "" Then

Open Fichier For Input As #NumFic
t.Text = Input(LOF(NumFic), #NumFic )
Close #NumFic

LireFichier = True

Else

LireFichier = False

End If

End Function


Cordialement, CanisLupus

Exist

5 réponses

Discussions similaires