Question

vb 上传(复制)图片到指定文件夹

100分悬赏
打开公共对话框-选取图片-按下按钮-把选择的图片复制到我程序所在的文件夹里的Image文件夹-同时向数据库中写入该图片路径(放入Image后的路径)-操错完毕
本问题总共悬赏100分
给出具体代码的,加送积分50-100

谢谢
都不行.2楼的,FileCopy appa, App.Path & "\Image"
这句开始错

Answer 1

一个Command按钮,一个Text文本框,一个公共对话框控件,一个ado控件或者其他自定
Private Sub Command1_Click()
Dim appa As String, appb As String
dia1.ShowOpen
appa = dia1.FileName
If appa <> "" Then
appb = dia1.FileTitle '文件名称
FileCopy appa, App.Path & "\Image"
Text1.Text = App.Path & "\Image\" & appb
adodc1.Recordset.Addnew '我使用ado连接.具体你自己设置..
End If
End Sub

错你修改一下。加一个标题的appb app.path & "\image\" & appb

Answer 2

dim pathHDD as string
dim pathObject as string
...
获取两个路径
file.copy(pathHDD,pathObject)

不可以么?