FileSearch sur cl� USB svp !

Hello,

fonction disparue avec la version 2007.
Si je ne m'abuse, Dir la remplace

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
Sub Liste_Fichier()
 
    Dim Nom_Fichier As String
    Nom_Fichier = Dir("E:\*.*")
 
    Do While Nom_Fichier <> ""
        MsgBox Nom_Fichier
        Nom_Fichier = Dir
    Loop
 
End Sub

Envoy� par iBenny

Donc, VBA accepte les commandes DOS !?

Non, c'est une fonction VBA qui porte le m�me nom qu'une commande DOS