A voir également:
- Recherche repertoire sous access
- Recherche musique - Guide
- Recherche par image - Guide
- Access denied - Forum Bbox Bouygues
- Canal tf1 tnt recherche manuelle - Forum TNT
- Répertoire téléphonique gratuit - Télécharger - Bureautique
1 réponse
Bonjour,
en mettant "[texte2]*.txt", tu cherchesles fichiers qui s'appellent [texte2]quelque chose.txt, le [texte2] entre " " est pris tel quel et pas comme un champ de ton formulaire.
Private Sub Commande0_Click()
Dim rep As String,xx$,entree$
xx = ""
entree=texte2 & "\" // ici tu lis le contenu du champ. tu ajoutes un \ si tu ne veux pas obliger les gens à le saisir
rep = Dir(entree & "*.txt", vbDirectory):
Do While (rep <> ""):
If (GetAttr(entree & rep) And vbDirectory) <> vbDirectory Then
xx = xx & vbCrLf & rep:
End If
rep = Dir: Loop
End Sub
en mettant "[texte2]*.txt", tu cherchesles fichiers qui s'appellent [texte2]quelque chose.txt, le [texte2] entre " " est pris tel quel et pas comme un champ de ton formulaire.
Private Sub Commande0_Click()
Dim rep As String,xx$,entree$
xx = ""
entree=texte2 & "\" // ici tu lis le contenu du champ. tu ajoutes un \ si tu ne veux pas obliger les gens à le saisir
rep = Dir(entree & "*.txt", vbDirectory):
Do While (rep <> ""):
If (GetAttr(entree & rep) And vbDirectory) <> vbDirectory Then
xx = xx & vbCrLf & rep:
End If
rep = Dir: Loop
End Sub