Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
voir les fonctions: Dir (voir aide en ligne) Renvoie une valeur de type variant(String) représentant le nom d'un fichier, d'un répertoire ou d'un dossier correspondant à une chaîne de recherche, à un attribut de fichier ou au nom de volume d'un lecteur.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Zeus" a écrit dans le message de news:
existe il un module ou une fonction qui me permettrait de trouver tous les fichiers MDB situées sur un disque donné. ?
merci d'avance
Bonjour.
voir les fonctions:
Dir (voir aide en ligne)
Renvoie une valeur de type variant(String) représentant le nom d'un fichier,
d'un répertoire ou d'un dossier correspondant à une chaîne de recherche, à
un attribut de fichier ou au nom de volume d'un lecteur.
voir les fonctions: Dir (voir aide en ligne) Renvoie une valeur de type variant(String) représentant le nom d'un fichier, d'un répertoire ou d'un dossier correspondant à une chaîne de recherche, à un attribut de fichier ou au nom de volume d'un lecteur.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Zeus" a écrit dans le message de news:
existe il un module ou une fonction qui me permettrait de trouver tous les fichiers MDB situées sur un disque donné. ?
merci d'avance
Loic B.
voici un petit code Set fs = Application.FileSearch With fs .LookIn = localisation 'sur quelle disque (c:) .SearchSubFolders = True .FileName = nomdufichier 'nom du fichier (*.mdb) If .Execute() > 0 Then MsgBox "il y a " & .FoundFiles.Count & _ " fichier(s) trouvé(s)." For i = 1 To .FoundFiles.Count If strResult = "" Then strResult = .FoundFiles(i) Else strResult = strResult & vbCrLf & .FoundFiles(i) End If Next i endif End With MsgBox strResult "Zeus" a écrit dans le message de news:
existe il un module ou une fonction qui me permettrait de trouver tous les fichiers MDB situées sur un disque donné. ?
merci d'avance
voici un petit code
Set fs = Application.FileSearch
With fs
.LookIn = localisation 'sur quelle disque (c:)
.SearchSubFolders = True
.FileName = nomdufichier 'nom du fichier (*.mdb)
If .Execute() > 0 Then
MsgBox "il y a " & .FoundFiles.Count & _
" fichier(s) trouvé(s)."
For i = 1 To .FoundFiles.Count
If strResult = "" Then
strResult = .FoundFiles(i)
Else
strResult = strResult & vbCrLf & .FoundFiles(i)
End If
Next i
endif
End With
MsgBox strResult
"Zeus" <davidboulonnais@aol.com> a écrit dans le message de
news:OPQogoH0EHA.804@TK2MSFTNGP12.phx.gbl...
existe il un module ou une fonction qui me permettrait de trouver tous les
fichiers MDB situées sur un disque donné. ?
voici un petit code Set fs = Application.FileSearch With fs .LookIn = localisation 'sur quelle disque (c:) .SearchSubFolders = True .FileName = nomdufichier 'nom du fichier (*.mdb) If .Execute() > 0 Then MsgBox "il y a " & .FoundFiles.Count & _ " fichier(s) trouvé(s)." For i = 1 To .FoundFiles.Count If strResult = "" Then strResult = .FoundFiles(i) Else strResult = strResult & vbCrLf & .FoundFiles(i) End If Next i endif End With MsgBox strResult "Zeus" a écrit dans le message de news:
existe il un module ou une fonction qui me permettrait de trouver tous les fichiers MDB situées sur un disque donné. ?
