Dresser la liste des fichiers d'un CD

[Boby71C]

Bonjour à tous
Je cherche une solution pour faire la liste des dossiers et fichiers qui sont sur un CD.
J'ai éssayé avec cette formule dans un module,trouvée sur une revue mais ça ne fonctionne pas !!

Sub ListeDesFichiers()
Dim I As Long
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = F:
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range(A1).Offset(I, 0) = .Item(I)
Next I
End With
End With
End Sub

Auriez-vous une solution, ça m'éviterai de tout recopier manuellement.
Merci pour votre aide
@+

 

[pierrejean]

bonjour Boby

a premiere vue les 'cotes' ne sont pas passées

avec cela ça devrait aller mieux

sous reserve que ton lecteur de cd soit en F

Sub ListeDesFichiers()
Dim I As Long
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = 'F:\\'
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range('A1').Offset(I, 0) = .Item(I)
Next I
End With
End With
End Sub

arf les antislash ne passent pas ici

.LookIn = 'F:as' as pour antislash

Message édité par: pierrejean, à: 03/03/2006 12:53

 

[Boby71C]

Bonjour PierreJean et le forum
Merci beaucoup pour ton aide.
J'était pour mettre une réponse car j'ai trouvé mon erreur.Il manquai les '
ici!
LookIn = F:
LookIn = 'F:\\'
et là
Range(A1).Offset(I, 0) = .Item(I)
Range('A1').Offset(I, 0) = .Item(I)
😱 😱 😱 😱
Maintenant, ça fonctionne.

Je vais malgré tout mettre en application ton programme pour voir comment il réagit.

Merci beaucoup
@+