récupérer une variable

Bonjour
Désolé si ma question vous parait stupide.
Je liste les fichiers se trouvant dans un repertoire, mais lorsque j'essaye de récupérer les noms des fichiers (dans a), j'ai une erreur.
Queqlu'un pourrait me dire ce qui cloche ?
Merci. Stan.


Private Sub Command1_Click()

Dim fso As New FileSystemObject
Set f = fso.GetFolder("c:\")
a = f.Files.Item(1).Name

End Sub

bonjour,
déjà ta variable n'est pas déclaré. si tu travaille en mode option explicite le programme te retourne une erreur car dans ce mode tous les variable doivent être déclarer

Private Sub Command1_Click()

         dim a as string

Dim fso As New FileSystemObject
Set f = fso.GetFolder("c:\")
a = f.Files.Item(1).Name

End Sub

Hassen TUNISIE

Merci,
Je ne travaille pas en "option explicite". Déclarer la variable ne résoud pas le problème. J'ai toujours le même message d'erreur :
"erreur d'execution '5':
Argument ou appel de procédure incorrect"

Tu peux faire comme ça sinon (numero c'est le numéro de ton fichier dans le répertoire):

Private Sub Command1_Click()

    Dim a As String
    Dim i As Integer
    Dim numero As Integer
   
    numero = 1
   
    a = Dir("C:\")
    For i = 1 To numero - 1
        a = Dir
    Next i

End Sub

humm... en effet!!!

Etrangement, je n'arrive pas non plus à me servir de la collection Files via Item ou Index !!!
Tu es donc "obligé" (dans la mesure de mes connaissances limités) de parcourir cette collection via For Each comme ceci :

 Dim objFSO As Object
 Dim objFolder As Object
 Dim colFiles As Object  'Collection d'objets
 Dim objFile As Object
 
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objFolder = objFSO.GetFolder("c:\")
 Set colFiles = objFolder.Files
 Me.Print colFiles.Count
 For Each objFile In colFiles
  varNames = varNames & objFile.Name & vbCrLf
 Next objFile
 Me.Print varNames


Enjoy

---