复制 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
***