[masipro]

Hai Good Day,
I wish to copy all files in a specified drive; I used the below coding, but I need all the files and folders in the drive to be copied at a specified location. Please help

Option Explicit
Dim FSO As New FileSystemObject
'---------------------------
Public Sub Main()
On Error Resume Next
Dim ptold, ptnew As String
Dim n, i As Integer

ptold = "G:\Acrobat"
ptnew = "C:\Documents and Settings\Faizan\Desktop\New"
Call FSO.CopyFile(ptold, ptnew)
Call FSO.CopyFolder(ptold, ptnew, True)

End Sub

[Nikhil_07n]

Try batch files with xcopy command and run them using shell command.

[VB Crash]

Try with Preference=> Windows Script Host Object (it was smething like that) and make a FileSystemObject, Folder and File varible. The use the FilySistemObject to copy the files or folders. Use SET comand, something like this,it may have mistakes

dim bb as new filesysemobject
dim fol as folder

set fol=bb.getfolder("C:\windows\")

Hope this is usefful

Vace

[masipro]

Nikhil_07n, on 22 Jan, 2009 - 04:27 AM, said:

Try batch files with xcopy command and run them using shell command.

Thanks a lot, it is working

VB Crash, on 22 Jan, 2009 - 08:53 AM, said:

Try with Preference=> Windows Script Host Object (it was smething like that) and make a FileSystemObject, Folder and File varible. The use the FilySistemObject to copy the files or folders. Use SET comand, something like this,it may have mistakes

dim bb as new filesysemobject
dim fol as folder

set fol=bb.getfolder("C:\windows\")

Hope this is usefful

Vace

THANK YOU very mucb