Helped! Tried to copy folder into another folder but failed

[muhdass]

Hi Guys,

Im quite new to VBA and im having problem copying folders.

Option Explicit

Sub autoCopy()


Dim PathName As String
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String


PathName = ActiveCell.Value
MsgBox PathName '>> this is my pathname (Y:\2. USERS\Asri\MACC New Name\2010-08-12\HD001Y0\)

' FileCopy PathName, "Y:\2. USERS\Asri\testing\"


FromPath = PathName '<< Change
MsgBox PathName

ToPath = "Y:\2. USERS\Asri\testing" '<< Change


End Sub

Appreciate your help guys

[patel45]

Please Login or Register  to view this content.

[muhdass]

Sub folderCopy()
Dim PathName As String
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
PathName = ActiveCell.Value
MsgBox PathName '>> this is my pathname (Y:\2. USERS\Asri\MACC New Name\2010-08-12\HD001Y0\)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder PathName, "Y:\2. USERS\Asri\testing\" <<<<<< it keeps giving "path not found error even when i have tried it with "C:\"
End Sub

[muhdass]

Thanks Patel, managed to find the issue.

Do u happen to have any idea if i wanted to copy multiple folders?

[patel45]

Thanks Patel, managed to find the issue. - How please ?

Do u happen to have any idea if i wanted to copy multiple folders? - explain better please