打开公共对话框-选取图片-按下按钮-把选择的图片复制到我程序所在的文件夹里的Image文件夹--text1显示全部路径(放入IMAGE后的路径)-同时向数据库中写入该图片路径(放入Image后的路径)-操错完毕
怎么来啊,我想知道  把选择的图片复制到我程序所在的文件夹里的Image文件夹 , text1显示全部路径 这两步怎么来实现呢

我不行啊,,

最好详细点,,谢谢

http://zhidao.baidu.com/question/64223665.html
我百度悬赏100分的,要分数可以去那里,,谢谢

'定义路径
dim apath as string,imgname as string
dim imgpath
apath = iif(len(app.path)=3,app.path,app.path & "\") & "image\"

'选择文件
commondialog1.showopen

'解释图片文件名
imgpath = split(commondialog1.filename, "\")
imgname = imgpath(UBound(imgpath))

'复制文件
filecopy commondialog1.filename , apath & imgname

'显示路径
text1.text = apath & imgname