Question

vb中如何保存一张图片在指定文件夹里

保存在该程序目录下的“1”文件夹中，若文件夹不存在，则创建

Answer 1

'定义一个目录及文件名变量
dim curDire as string
dim curFile as string
'赋值
curDire=App.Path+"\1" '当前系统目录下的 ...\1子目录
curFile=curDire + "\f1234.bmp" '文件名为 f1234.bmp 图片文件
'判断子目录是否存在，不存在则创建
If Len(Dir$(curDire,vbDirectory)) = 0 Then MkDir curDire
'判断文件是否存在，如存在就删除该文件
if Len(Dir$(curFile))>0 Then Kill curFile
'将Picture1 中的图片文件保存
SavePicture Picture1.Image, curFile