Copying CD directory contents to text or memo field

[doctorfeelyg]

Hi there,

I've tried to search on this topic but had little luck. Essentially, i am constructing a simple CD library database and would like to be able to capture the contents of the CD (either folder names or file names) to a memo field within the database.

I can do this manually using the freeware app JR Directory Printer but would like to be able to build this functionality into the database activated by a button click.

I am running Access 2002

Any suggestions much appreciated.

Kind regards

DFG

[Rabbit]

You'll want to look at the FileSystem object. It lets you return information about files.

[FishVal]

Hello, DFG.

You'll need to write a simple recursive function with the following logic (in pseudocode).

Function ScanFolder (fldFolder)
    add fldFolder name to the memo
    For Each fldMySubFolder in fldFolder.SubFolders
        ScanFolder fldMySubFolder  'call itself
    Next
    For Each filFile in fldFolder.Files
        add filFile name to the memo
    Next
End Function
 

And invoke the function passing reference to root folder. It then will scan the whole filesystem tree.

All necessary classes to implement this in a real code you may find in "Microsoft Scripting Runtime" library. See the tip of the week - TheScripts Tip of the Week #43 - Microsoft Scripting Runtime #1.
Particulary you'll need the following classes.

• Scripting.Drive (RootFolder property)
• Scripting.Folder (Files, SubFolders properties)
• Scripting.File (various properties)

Feel free to ask additional questions if you'll encounter difficulties in coding.

Regards,
Fish

[doctorfeelyg]

Hi Fish, thanks for your pointers, it should head me in the right direction though being a bit new to all this i may be back for more help later. Cheers. DFG

Hello, DFG.

You'll need to write a simple recursive function with the following logic (in pseudocode).

Function ScanFolder (fldFolder)
    add fldFolder name to the memo
    For Each fldMySubFolder in fldFolder.SubFolders
        ScanFolder fldMySubFolder  'call itself
    Next
    For Each filFile in fldFolder.Files
        add filFile name to the memo
    Next
End Function
 

And invoke the function passing reference to root folder. It then will scan the whole filesystem tree.

All necessary classes to implement this in a real code you may find in "Microsoft Scripting Runtime" library. See the tip of the week - TheScripts Tip of the Week #43 - Microsoft Scripting Runtime #1.
Particulary you'll need the following classes.

• Scripting.Drive (RootFolder property)
• Scripting.Folder (Files, SubFolders properties)
• Scripting.File (various properties)

Feel free to ask additional questions if you'll encounter difficulties in coding.

Regards,
Fish