Retrieve files from folder on network drive

[cek172]

I have a folder called 'Imported POs' on a network drive that I can import into an access database through vba.

I want to be able to display a listbox on a form that shows all the file names within this folder. I do not know of any way to do this through vba. If anyone has any idea of how to do this please let me know.

Thanks,

chris

[nico5038]

Best to start with defining a table to hold the filenames and use this module by passing the Path like:

Function fncStoreFiles(strPath As String)
 
'This function will store all found files in tblFiles
'Make sure the strPath has a trailing "\"
 
' Init table
     currentdb.execute ("delete * from tblFiles")
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    ' file directory
    Set f = fs.GetFolder(strPath)
    ' file collection
    Set fc = f.Files
    For Each f1 In fc
      currentdb.execute ("INSERT INTO tblFiles (Filename) VALUES ('" & f1.Name & "')")
    Next
 
End Function
 

Getting the idea ?

Nic;o)