cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010
-
24 avril 2006 à 22:05
cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010
-
25 avril 2006 à 12:16
J'ai un probléme, je veux selectionner tous les fichier se terminant par ind et tif mais je ne sé 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électionner sans buguer. Puis aprés l'avoir selectionner il faut cliquer sur un bouton..Pour vérifier.
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
Dim fichier As String
fichier = File1.FileName
End Sub
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 24 avril 2006 à 22:46
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èglement.
Pensez également à valider une réponse quand celle-ci vous convient.
Attention ! Réponse validée = Question qui ne sera probablement plus visitée.
cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010 25 avril 2006 à 09:32
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é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
cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010 25 avril 2006 à 11:23
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à ouver des fichiers dont je connaisser le chemin et le nom. la ses différents documents,la je connait le chemin mais pas le nom des fichiers (car ts différents) ts se que je connait ses leur extension. si qq1 trouve une soluce se srai sympa
merci