list all files in a directory

[snipe]

Hey guys,



I have a network folder full of our product photos. New photos automatically get dropped in there from our manufacturers FTP site. Our IT guys set that up. I need a script or something that will list all the files in that directory and append them into a table in Access.

Is this possible?

Currently I run a few commands in cmd and import the file that gets exported from those commands. I need this to be smoother so our higher-ups can update their product catalog with the push of a button.

[amrut]

Try -

Sub ShowFiles(FolderName As String)
    Dim File As Variant
    File = Dir(FolderName & "\*")
    Do While Len(File) > 0
        Debug.Print File
        File = Dir
    Loop
End Sub

[snipe]

Nice! Worked great. Whats the best way to get that into a table? Recordset add new?

[snipe]

Also, What exactly is the "File = Dir" line doing?

I tried to reverse engineer it by removing it and just endlessly prints the name of the first file. So obviously it fixes that problem, but how?

Thanks!

[rpeare]

file = dir is just another way of saying go to the next file.

You can also use filesystemobject commands to do this function. Here's a link to that method:

http://blogs.technet.com/b/heyscript...ubfolders.aspx

Either way, once you get the file names you can create a SQL statement and add records to your table if they are new (this would either involve checking to see if you already have a record of the file name or just appending to the table and relying on a unique key to reject the file if the file name/date is the same)

[snipe]

Ah gotcha. Seems easy enough. I appreciate the help!