Directory Listing

[RemoteRobot]

I am in need of a code which would return the file names from a directory into a table. The returned information would look something like this:



tblCurrentFiles
FileName
FileDate
FileSize
FileDirectory

Preferably it could pull from a list of directories stored in a table.
tblCurrentDirectories
DirectoryLocation

I would assume this would be written in VBA. I am a novice to this and would welcome assistance.

[ranman256]

USAGE : ImportAllFilesIn1Dir( [FOLDER NAME] )

'-----------------
Public Sub ImportAllFilesIn1Dir(ByVal pvDir)
'-----------------
Dim pvName, vTargT, vDate, vSize
Dim i As Integer
Dim sTbl As String, sSql As String
Dim fso
Dim oFolder, oFile

'On Error GoTo errImp
If Right(pvDir, 1) <> "\" Then pvDir = pvDir & "\"

DoCmd.SetWarnings False

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(pvDir)
For Each oFile In oFolder.Files
    vName = oFile.Name
    vDate = oFile.DateLastModified
    vSize = oFile.Size
    
     sSql = "Insert into tblCurrentFiles ( Filename, FileDate, FileSize, FileDirectory) values ('" & vName & "','" & vDate & "'," & vSize & ",'" & pvDir & "')"
    DoCmd.RunSQL sSql
Next

Set fso = Nothing
Set oFile = Nothing
Set oFolder = Nothing
DoCmd.SetWarnings True
MsgBox "Done"
End Sub