copy folder

[dimava]

I have a folder:
c:\program files\vih\master8

which has about 100 folders in it, and each of the folders has a few files in it

can I copy all of the folders in the "master8" folder to "c:\program files\vih"

i'm using Access 97

thanks,

Dimava

[JMvVliet]

Yes you can, add a reference to 'Microsoft Scripting Host' to your application, and then make this function:

Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.Folder
 
For Each fld In fso.Folders
   fso.MoveFolder fld.path, "c:\program files\vih"
Next fld
 
set fso = nothing

I did it without code editor, hope it helps you out.