i am trying to moving a file using this Code

1 Code:
  1. 'Dim strFileName As String

  2.     

  3.     'upload file link into database

  4.     'cdlUpload.DialogTitle = "Upload File"

  5.     'cdlUpload.Filter = "All Files(*.*)|*.*|Office Document 1997-2000(*.doc)|*.doc|Office Document 2003-2010(*.docx)|*.docx|"

  6.     'cdlUpload.Flags = cdlOFNFileMustExist + cdlOFNPathMustExist

  7.     'On Error GoTo ERR_Handler

  8.     'cdlUpload.ShowOpen

  9.     

  10.     'strFileName = cdlUpload.FileName

  11.     

  12.        

  13.     'FileSystem.FileCopy(strFileName, "C:\Documents and Settings\Fadairo Fussy Fisayo\Desktop\my very new project\Server") = = (strFileName)

  14.     

  15. 'ERR_Handler:

  16.  '   Exit Sub

but i dont know why its not working..
please i need assistance..