Backups using Explorer

[Guest]

I am using the code at bottom of this post to backup my tables to a floppy
disk.

Is there any way to open Windows Explorer and let the user decide where to
back up too?

Any help appreciated.

Ray

---------------------------------------
Set FSO = CreateObject("Scripting.FileSystemObject")

CopyFrom = "c:\member management\Legion Membership tables*.mdb"
ParentFolder = "A:\"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder) 'This is where the files
will be copied to
objFolder.CopyHere CopyFrom, FOF_CREATEPROGRESSDLG

-------------------------------------------------------

 

[Douglas J. Steele]

Not quite sure what you're looking for. Are you saying you want to give them
some other choice than just backing up to A:\?

Take a look at http://www.mvps.org/access/api/api0002.htm at "The Access
Web". That will bring up the standard Folder Selection dialog.