Adaptation macro

Le
Infogroup
Bonjour à tous,
la macro ci-dessous, me liste les fichiers du répertoire D:Copie ainsi que
de ses sous-répertoires.
le problème est que le résultat indique le sous répertoire si le fichier
n'est pas à la racine.
je voudrais obtenir seulement le nom du fichier seul sans le nom du
sous-répertoire qui le précède.

Merci pour votre aide

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Right(.Item(I), Len(.Item(I)) -
Len(Path) - 1)
Next I
End With
End With
End Sub


Cdl

Infogroup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18739161
Bonjour.
Non testé :

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Dir(.Item(I))
Next I
End With
End With
End Sub

Cordialement.
Daniel

Bonjour à tous,
la macro ci-dessous, me liste les fichiers du répertoire D:Copie ainsi que
de ses sous-répertoires.
le problème est que le résultat indique le sous répertoire si le fichier
n'est pas à la racine.
je voudrais obtenir seulement le nom du fichier seul sans le nom du
sous-répertoire qui le précède.

Merci pour votre aide

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Right(.Item(I), Len(.Item(I)) -
Len(Path) - 1)
Next I
End With
End With
End Sub


Cdl

Infogroup


Infogroup
Le #18739341
Bonjour Daniel C.,

j'ai testé ta macro et tout est OK

encore une fois merci à toi pour ton dévouement et ta disponibilité.

Cdl

Infogroup


"Daniel.C" news:%
Bonjour.
Non testé :

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Dir(.Item(I))
Next I
End With
End With
End Sub

Cordialement.
Daniel

Bonjour à tous,
la macro ci-dessous, me liste les fichiers du répertoire D:Copie ainsi
que de ses sous-répertoires.
le problème est que le résultat indique le sous répertoire si le fichier
n'est pas à la racine.
je voudrais obtenir seulement le nom du fichier seul sans le nom du
sous-répertoire qui le précède.

Merci pour votre aide

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Right(.Item(I),
Len(.Item(I)) - Len(Path) - 1)
Next I
End With
End With
End Sub


Cdl

Infogroup






Publicité
Poster une réponse
Anonyme