excel can not find folders

hi
not sure what is happening here trying to copy one workbook book1 from folder my documents to desktop folder new

"c:\users\colin\documents\book1.xlsx" to "c:\users\colin\desktop\new

" for some unknown reason will not recognise any folder any ideas
have also tried other code
like one below it always saves to my documents instead of new on desktop ,why? please

   Dim Directory As String
    Dim FileName As String, originalFileName As String
    Dim yourFileName As String, increName As String
    Dim xTrue As Integer, r As Integer
    Dim myPath As String
    myPath = "C:\Users\colin\Desktop\new\"
    DoEvents
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    DoEvents
    Workbooks.Add
   
    
    Application.Wait Now + TimeValue("00:00:01")
    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
    ActiveSheet.Range("A3").Select
    ActiveSheet.PageSetup.Orientation = xlLandscape
    Application.DisplayAlerts = False
ActiveWorkbook.SaveAs
Application.DisplayAlerts = False
'--------------------------------

cheers colin