Recherche repertoire sous access
Teg
-
le père -
le père -
Bonjour,
J'ai le code suivant qui me permet de rechercher tous mes fichiers texte sur le disque C:
J'aimerais qu'il cherche selon le repertoire qui se trouve dans un champ texte (exemple Texte2) sur le meme formulaire ou se trouve mon bouton qui active ce code. J'ai ajouté à la fin de ce message le code que je pensais qui fonctionnerait , hé non.... problème ?
Aide SVP
Private Sub Commande0_Click()
Dim rep As String:
xx = ""
rep = Dir("C:\*.txt", vbDirectory):
Do While (rep <> ""):
If (GetAttr("C:\" & rep) And vbDirectory) <> vbDirectory Then
xx = xx & vbCrLf & rep:
End If
rep = Dir: Loop
End Sub
------------------------
Private Sub Commande0_Click()
Dim rep As String:
xx = ""
rep = Dir("[texte2]*.txt", vbDirectory):
Do While (rep <> ""):
If (GetAttr("[texte2]" & rep) And vbDirectory) <> vbDirectory Then
xx = xx & vbCrLf & rep:
End If
rep = Dir: Loop
End Sub
Merci et bongé des fêtes
Teg
J'ai le code suivant qui me permet de rechercher tous mes fichiers texte sur le disque C:
J'aimerais qu'il cherche selon le repertoire qui se trouve dans un champ texte (exemple Texte2) sur le meme formulaire ou se trouve mon bouton qui active ce code. J'ai ajouté à la fin de ce message le code que je pensais qui fonctionnerait , hé non.... problème ?
Aide SVP
Private Sub Commande0_Click()
Dim rep As String:
xx = ""
rep = Dir("C:\*.txt", vbDirectory):
Do While (rep <> ""):
If (GetAttr("C:\" & rep) And vbDirectory) <> vbDirectory Then
xx = xx & vbCrLf & rep:
End If
rep = Dir: Loop
End Sub
------------------------
Private Sub Commande0_Click()
Dim rep As String:
xx = ""
rep = Dir("[texte2]*.txt", vbDirectory):
Do While (rep <> ""):
If (GetAttr("[texte2]" & rep) And vbDirectory) <> vbDirectory Then
xx = xx & vbCrLf & rep:
End If
rep = Dir: Loop
End Sub
Merci et bongé des fêtes
Teg
A voir également:
- Recherche repertoire sous access
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Recherche image - Guide
- Rechercher ou entrer l'adresse 4 - recherche google ✓ - Forum Réseaux sociaux
- 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
