MsgBox not showing

[basanth27]

I just ran the below code and it never created the directory. Try this,

Code:

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next

If err.number <> 0 Then
    FSO.CreateFolder "E:\Arebest"
    FSO.CopyFolder "C:\Program Files\Arebest", "E:\Arebest"    
         msgbox "Files Copied"
End If

Do you see a directory called Arebest on E:\ ?? If yes, your machine is haunted