VB中Projcet对象调用方法OrganizerMoveItem出异常.

我使用的是MS Project 2007,xp系统,下面的代码出错,抛出了异常.使用的vb6.0环境
  On Error Resume Next
  Set mspApp = CreateObject("MSProject.Application")

  If Err.Number = 0 Then
  On Error GoTo 0
  On Error GoTo MSPError

  mspApp.DisplayAlerts =False
  mspApp.FileOpen name:=TmpFilName, ReadOnly:=False, _
  FormatID:="MSProject.MPT" 'TmpFilName是一个mpt文件  
  mspApp.OrganizerMoveItem Type:=7, FileName:=MPTFileName, _
  ToFileName:="GLOBAL.MPT", name:=MPTFileName
' 上面的代码出现了问题,Err.number=1100,不知道为什么,MPTFileName是一个不带扩展名的名字.
'上面的方法不知道各个参数是干什么用的,希望有人能够解答,再顺便解决一下异常问题,希望能详细一点  
  mspApp.FileClose
  mspApp.FileOpen name:=strExpFileName, ReadOnly:=False, _
  FormatID:="MSProject.CSV", map:=MPTFileName
  mspApp.Visible = True
  mspApp.DisplayAlerts = True

  End If

上面的程序的问题怎么解决.
错误号已经查过了,网上根本找不到.

只能说很失望.