Disk Directory Structure

[Dominique]

I'd like Access to scan a local hard disk and automatically generate tables etc that represent the directories and files. Are there some readily available Access data structures that can be used to get me going

 

[Joe Fallon]

Maybe this code can be modified to meet your needs:

How to Add Directory File Names to an Access Table:

Create a table named tblDirectory with 2 fields:
FileName (Text 250)
FileDate (Date/Time)

Call the code below by pressing Ctrl-G to open the debug window and type:
GetFiles("c:\windows\")

Paste this code into a regular module:

Sub GetFiles(strPath As String)
Dim rs As Recordset
Dim strFile As String, strDate As Date

'clear out existing data
CurrentDb.Execute "Delete * From tblDirectory", dbFailOnError

'open a recordset
Set rs = CurrentDb.OpenRecordset("tblDirectory", dbOpenDynaset)

'get the first filename
strFile = Dir(strPath, vbNormal)
'Loop through the balance of files
Do
'check to see if you have a filename
If strFile = "" Then
GoTo ExitHere
End If
strDate = FileDateTime(strPath & strFile)
rs.AddNew
'to save the full path using strPath & strFile
'save only the filename
rs!FileName = strFile
rs!FileDate = strDate
rs.Update

'try for next filename
strFile = Dir()
Loop

ExitHere:
Set rs = Nothing
MsgBox ("Directory list is complete.")
End Sub

--
Joe Fallon
Access MVP

I'd like Access to scan a local hard disk and automatically generate

tables etc that represent the directories and files. Are there some readily
available Access data structures that can be used to get me going?

 

[Dominique]

Thanks, I'll take a look.

 

[Roger Carlson]

On my website (see sig below) is a small sample database called
DirectoryList.MDB, which shows one way to do this.

--
--Roger Carlson
www.rogersaccesslibrary.com
Reply to: Roger dot Carlson at Spectrum-Health dot Org

I'd like Access to scan a local hard disk and automatically generate

tables etc that represent the directories and files. Are there some readily
available Access data structures that can be used to get me going?

 

[Dominique]

Roger

You code is very nice. (Although I have had to remove the Environ function call as it seems to cause an unresolved reference error. As I'm only using the database on a Windows 2000 machine, I can hard code the shell command.

In principle I can use your code as my starting point

Thank

Dom