Pb avec le fichierRésolu

Question

J'ai un probl&#233;me, je veux selectionner tous les fichier se terminant par ind et tif mais je ne s&#233; pas comment faire merci de bien vouloire m'aider. De  plus, j'ai un autre pb il faut aussi que lorsque je clique sur l'un des doc il soit s&#233;lectionner sans buguer. Puis apr&#233;s l'avoir selectionner il faut cliquer sur un bouton..Pour v&#233;rifier.

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub


Private Sub File1_Click()
Dim fichier As String
fichier = File1.FileName
End Sub

jrivet · Accepted Answer

Salut, 

Au moment de ton ouverture de fichier, que vaut la Variable fichier? (il faut quelle contienne TOUT le chemin) 

peu &#234;tre m&#234;me que la variable Fichier contient d&#233;ja ".ind" 
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

econs · Answer

Salut,



N'oublie pas de mettre File1.Filter =  "*.tif"

Tu auras ainsi tous les fichiers tif, et rien qu'eux, dans ta FileListBox.


 Manu 
<hr size ="2" width="100%">Avant de poster un message, n'oubliez pas de consulter le r&#232;glement. 
Pensez &#233;galement &#224; valider une r&#233;ponse quand celle-ci vous convient. 
Attention ! R&#233;ponse valid&#233;e = Question qui ne sera probablement plus visit&#233;e.

cs_Miss1 · Answer

Merci. 
Je cherche avec se code c'est que le fichier s'ouvre lise la premiere ligne s'arrettant a chaque point firgule se trouvant sur la ligne puis v&#233;rifiant si le nom de l'image .tif est bien ds la ligne si se le cas, ligne suivante puis jusqua la fin puis fermer ficgier et passer au suivant mais g un bug ou niveau  open....................... line (ce qui est en rose) merci de bien vouloire m'aider(tous sa se fait en vb6 )

Private Sub Command1_Click()
Numfichier = FreeFile
Dim Ligne As Integer
Ligne = 1
bcl1:
Open "fichier&.ind" For Input As #Numfichier
 Line Input #1, texte
        While Not EOF(1)
        If StrComp(fichier, texte) = 0 Then
        MsgBox ("Ok!!")
        
      Else: While Not EOF(1)
          Line Input #1, texte
            i = i + 1
            
           Wend
        End If
       Wend
finfichier:
Close #1
Exit Sub
End Sub

PCPT · Answer

salut
Open fichier & ".ind"
... j'ai pas regard&#233; le reste

PCPT · Answer

#Numfichier, alors pas #1

cs_Miss1 · Answer

Open fichier & ".ind" 
For Input As #Numfichier
,il m'indique qu'il y a une erreur dans le nom ou le num et dc que le fichier er introuvable. Le pb qui se pose c'est que je veut ouvrir tous les fichier de type .ind . c'est pas normale que cela ne veut tj pas fonctionner. J'ai dej&#224; ouver des fichiers dont je connaisser le chemin et le nom. la ses diff&#233;rents documents,la  je connait le chemin mais pas le nom des fichiers (car ts diff&#233;rents) ts se que je connait ses leur extension. si qq1 trouve une soluce se srai sympa 
merci

cs_Miss1 · Answer

Miss1 
ok merci j'ai reussi sa fonctionne le pb &#233;tait ds mon chemin.

Pb avec le fichier

7 réponses

Discussions similaires