How to read the name of files in a folders?

[Guest_imported]

Can someone help me plz?

I have a folder with images i have to read all the files name and fill a combo box with the names of the files.

Thanks.

 

[drwunz]

See the Dir function in Help. Includes sample.

 

[Cocheez]

Use the FileSystemObject, it works like a champ.

----

Dim oFSO As Scripting.FileSystemObject

Private Sub Form_Load()
Set oFSO = New Scripting.FileSystemObject
oneFolder App.Path & "\files"
End Sub

Private Function oneFolder(ByVal sDir As String) As String
Dim oDir As Scripting.Folder
Dim oFile As Scripting.File

Set oDir = oFSO.GetFolder(sDir)

For Each oFile In oDir.Files
Debug.Print oFile.Path
oFile.Name = "_" & oFile.Name
Next
End Function

----

Hope this does what you need.

-Matt

 

[Cocheez]

To clarify,
That is a peice of code I used to change names of files.
Just change the

oFile.Name = "_" & oFile.Name

portion of it to something that will hold your file names.

-Matt