bonjour,
je souhaite parcourir les r=E9pertoires et r=E9cup=E9rer le=20
chemin absolu d'un fichier sur un r=E9seau par=20
exemple //serveur/volume/repertoire/fichier.txt
comment feriez vous =E7a svp ?
merci
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
3stone
Salut,
"" bonjour, je souhaite parcourir les répertoires et récupérer le chemin absolu d'un fichier sur un réseau par exemple //serveur/volume/repertoire/fichier.txt comment feriez vous ça svp ?
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Salut,
"titof@oreka.com"
bonjour,
je souhaite parcourir les répertoires et récupérer le
chemin absolu d'un fichier sur un réseau par
exemple //serveur/volume/repertoire/fichier.txt
comment feriez vous ça svp ?
"" bonjour, je souhaite parcourir les répertoires et récupérer le chemin absolu d'un fichier sur un réseau par exemple //serveur/volume/repertoire/fichier.txt comment feriez vous ça svp ?
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Raymond [mvp]
Bonjour.
tu peux passer par FileSearch. exemple: Dim I As Long With FileSearch .NewSearch .LookIn = "ServeurSharedDocsmesfichiers" .FileName = "fichier.txt" .SearchSubFolders = True .MatchTextExactly = True .FileType = msoFileTypeAllFiles If .Execute(msoSortByFileName, msoSortOrderAscending, True) > 0 Then For I = 1 To .FoundFiles.Count Debug.Print .FoundFiles(I) ' ici à voir ce qu'il faut faire Next I else debug.print "pas trouvé" End If End With
il faut cocher la référence Microsoft Office. c'est une procédure qui peut être très longue et on ne peut pas reprendre la main. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"" a écrit dans le message de news: 09df01c4b81b$15de3b50$ bonjour, je souhaite parcourir les répertoires et récupérer le chemin absolu d'un fichier sur un réseau par exemple //serveur/volume/repertoire/fichier.txt comment feriez vous ça svp ? merci
Bonjour.
tu peux passer par FileSearch.
exemple:
Dim I As Long
With FileSearch
.NewSearch
.LookIn = "\ServeurSharedDocsmesfichiers"
.FileName = "fichier.txt"
.SearchSubFolders = True
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute(msoSortByFileName, msoSortOrderAscending, True) > 0 Then
For I = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(I) ' ici à voir ce qu'il faut faire
Next I
else
debug.print "pas trouvé"
End If
End With
il faut cocher la référence Microsoft Office.
c'est une procédure qui peut être très longue et on ne peut pas reprendre
la main.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"titof@oreka.com" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 09df01c4b81b$15de3b50$a301280a@phx.gbl...
bonjour,
je souhaite parcourir les répertoires et récupérer le
chemin absolu d'un fichier sur un réseau par
exemple //serveur/volume/repertoire/fichier.txt
comment feriez vous ça svp ?
merci
tu peux passer par FileSearch. exemple: Dim I As Long With FileSearch .NewSearch .LookIn = "ServeurSharedDocsmesfichiers" .FileName = "fichier.txt" .SearchSubFolders = True .MatchTextExactly = True .FileType = msoFileTypeAllFiles If .Execute(msoSortByFileName, msoSortOrderAscending, True) > 0 Then For I = 1 To .FoundFiles.Count Debug.Print .FoundFiles(I) ' ici à voir ce qu'il faut faire Next I else debug.print "pas trouvé" End If End With
il faut cocher la référence Microsoft Office. c'est une procédure qui peut être très longue et on ne peut pas reprendre la main. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"" a écrit dans le message de news: 09df01c4b81b$15de3b50$ bonjour, je souhaite parcourir les répertoires et récupérer le chemin absolu d'un fichier sur un réseau par exemple //serveur/volume/repertoire/fichier.txt comment feriez vous ça svp ? merci
