复制 FileCopy 的问题

Question

我用commondialog 打开了一个图片文件 然后在一个picturebox里显示 显示没有问题
我想把打开的这个图片文件复制到我系统的文件夹里  使用相对路径
我的语句是这样的 可是提示说我的文件/路径访问错误
复制的时候是用路径名还是文件名?
请问 这个错怎么该啊 代码如下Private Sub cmnpicliti_Click()
targetf = App.Path + "\加油站立体图"
FileCopy fname, targetf
End SubPrivate Sub Command1_Click()
cmndlog.Action = 1
fname = cmndlog.filename
 'picname = cmndlog.FileTitle
piczhanpic.Picture = LoadPicture(fname)
End Sub

Answer 1

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

Answer 2

fname  是全局变量?
App.Path + "\加油站立体图" 如何这是一个文件夹,你试试App.Path + "\加油站立体图\" & fname

Answer 3

在Fliecopy后面直接写Msgbox
然后加上On Err

Answer 4

能给出例子吗 
on err 后的例子 改如何写
我不太会用这个语句

Answer 5

***
追加变量，保存文件名即可。
具体例子如下：Private fname       As String
Private fnameII     As StringPrivate 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
***