复制 FileCopy 的有关问题

复制 FileCopy 的问题
我用commondialog   打开了一个图片文件   然后在一个picturebox里显示   显示没有问题
我想把打开的这个图片文件复制到我系统的文件夹里     使用相对路径
我的语句是这样的   可是提示说我的文件/路径访问错误
复制的时候是用路径名还是文件名?
请问   这个错怎么该啊   代码如下

Private   Sub   cmnpicliti_Click()
targetf   =   App.Path   +   "\加油站立体图 "
FileCopy   fname,   targetf
End   Sub

Private   Sub   Command1_Click()
cmndlog.Action   =   1
fname   =   cmndlog.filename
  'picname   =   cmndlog.FileTitle
piczhanpic.Picture   =   LoadPicture(fname)


End   Sub


------解决方案--------------------
targetf = App.Path + "\加油站立体图 " 还需要文件名

------解决方案--------------------
fname 是全局变量?
App.Path + "\加油站立体图 " 如何这是一个文件夹,你试试App.Path + "\加油站立体图\ " & fname
------解决方案--------------------
在Fliecopy后面直接写Msgbox
然后加上On Err
------解决方案--------------------
***


追加变量，保存文件名即可。
具体例子如下：

Private fname As String
Private fnameII As String

Private Sub cmnpicliti_Click()
targetf = App.Path + "\加油站立体图\ " & fnameII
FileCopy fname, targetf
End Sub


Private Sub Command1_Click()

Dim sTmp As String

cmnDlog.Action = 1
fname = cmnDlog.FileName

' ' Get the file name
'==========================================================
sTmp = CurDir()
If Right(sTmp, 1) <> "\ " Then
sTmp = sTmp & "\ "
End If
fnameII = Replace(fname, sTmp, " ", 1, 1, vbTextCompare)
'==========================================================

'picname = cmndlog.FileTitle
piczhanpic.Picture = LoadPicture(fname)
End Sub


***