My app won't move my files

I am making an app in VS2003 w/ vb where I need to move a file, and the debugger says:

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in microsoft.visualbasic.dll
Additional information: Exception from HRESULT: 0x800A003A (CTL_E_FILEALREADYEXISTS).

Here's the code:

        On Error Resume Next
        Dim objFSO
        Dim strFileName, strFilePath, strDestPath
        Dim Path As String

        Path = Command()
        strFilePath = "K:\FTPPREP\" & Path
        strFileName = Dir(strFilePath & "\*.ZIP")
        strDestPath = "K:\FTP\" & Path
        objFSO = CreateObject("Scripting.FileSystemObject")
 
       If objFSO.FileExists(strFilePath & "\" & strFileName) Then
            MsgBox("File: Yes, and it is named: " & strFileName)
            objFSO.MoveFile(strFilePath & "\" & strFileName, strDestPath)
        Else
            MsgBox("File: No")
        End If

I do get the MsgBox saying the file is there with the correct file name, and I know for sure that the file isn't in the destination Path. I can even hardcode the MoveFile command, and it still won't get it there. What am I missing?

Kind of a sub-question: I demo'd PrimalScript, and I could compile exe's from vbs files with file manipulation (that worked!) The only way I can build an exe (in VS 2003) is by using a vb module in my project, and then building that. If I try using vbs files, It won't even let me build it. Am I doing something wrong even before the coding?

Thanks