*** Recherche de fichier avec VB6 ***

Question

Salut tout le monde 

- je voudrai savoir comment lors du chargement d'un form on peut faire la recherche d'un fichier donn&#233;e Exp: Text1.txt dans le dossier courant c a d la ou il y a le projet VB ?

- Et s'il existe un message1 apparait et si il n'existe pas un message 2 apparait??

merci de m'ecrir un code ou un lien pour une source car je suis debutant

Gobillot · Answer

dans Form_Load:

If Dir(App.Path & "Text1.Txt") <> "" Then
   MsgBox "message 1"
   Else
   MsgBox "message 2"
   End If

Daniel

cs_Heny · Answer

g essayeret &#231;a marche 

mais si je me permet d'etre plus exigeant  est ce que tu peut au lieu du fichier text1.txt  remplacer par BDGES.hbh et au lieu du message 1 ecrire un code qui me permet de renommer le fichier BDGES.hbh &#224; BDGES.mdb 

SVP Et merci d'avance

Gobillot · Answer

Dim NomFichier     As String
Dim NomNouveau As String

NomFichier    = App.Path & "BDGES.hbh"
NomNouveau = App.Path & "BDGES.mdb"

If Dir(NomFichier) = "" Then
   MsgBox "Fichier Absent"
   Else
   Name NomFichier As NomNouveau
   End If

Daniel

cs_Heny · Answer

Resalut

j'ai essayer le code en remplassant

If Dir(NomFichier) = "" Then
   MsgBox "Fichier Absent"
   Else
   Name NomFichier As NomNouveau
   End If

par

 Name NomFichier As NomNouveau

mais &#231;a ne marche pas un msg mez dit que ce fichier est abscent, je l'ai essayer meme avec un fichier text et je suis sur que ce fichier existe mais le msg reviens
Avez vous une id&#233;es pour ce probl&#233;me et merci d'avance

Gobillot · Answer

&#231;a doit &#234;tre &#224; cause de la barre.

NomFichier    =  App.Path & " \ BDGES.hbh"
NomNouveau  = App.Path & "\BDGES.mdb"

Daniel

cs_Heny · Answer

Meme avec le \ &#231;a ne marche pas 

je vien de l'essayer
SVP aidez moi

Gobillot · Answer

- o&#249; alors les noms sont pas les bons
- o&#249; alors les noms sont pas remplis au bon endroit  
- o&#249; alors le fichier a un attribut cach&#233; 
- o&#249; alors je ne sais plus ...

  If Dir(NomFichier) = "" Then
       MsgBox "Fichier Absent"
       Else
       If Dir(NomNouveau) <> "" Then
          MsgBox "Fichier existe d&#233;j&#224;"
          Else
          Name NomFichier As NomNouveau
          End If
       End If

Daniel

* Recherche de fichier avec VB6 *

7 réponses

Discussions similaires