how to copy whole directory to antother place? 1

[rgao]

Hi,there
I'm trying to writing code to copy a specified directory (include all files) to another place.Could some give me some suggestions? Thanks for any hint.

 

[jsnull]

You should be able to use the File Scripting Object in order to copy an entire folder to another location.

 

[JohnYingling]

' Add reference to MS Scripting Runtime
Dim objFSO As FileSystemObject
Set objFSO = New FileSystemObject
objFso.CopyFolder source, destination, True ' Overwrite=True
' Move to destination and erase from source
'objFso.MoveFolder source, destination, True ' Overwrite=True

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[JohnYingling]

No Overwrite on MoveFolder
'objFso.MoveFolder source, destination

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[rgao]

hi,Johnyingling ,jsnull
Thank you for your help,I got it.