我是个破新手,目前想要把图片移动都另外的资料夹,并且复制取代,该怎么做,如果给个示范的源码更好,谢谢喔!!

dim sf as string,df as string
sf="d:\1.jpg"   '源文件
df="c:\1.jpg"   '目标文件
filecopy sf,df  '拷贝源文件到目标文件
kill sf         '删除源文件

熟不熟悉DOS命令，那是十多二十年前常用的XCOPY。
在命令行模式下
d:
cd\
md test
cd test
xcopy d:\source\*.jpg/s
拷贝d:\source文件夹下的所有jpg文件到d:\test下，包括所用子目录
在VB6下需要用shell cmd 执行上述命令。

也可以用drivelistbox directorylistbox filelistbox来查找指定格式的文件再用wmf2014版主的方法来做.
如果所有图片都放在一个无子目的目录下,源目录的子目录下有相同文件名的图片时要重新命名.

[ 本帖最后由 lianyicq 于 2015-8-5 09:06 编辑 ]

THANKS A LOT

为什么显示找不到档案,侦错是FileCopy sf, df

我的档案在D:\MissionPack\Original-Chinese\Save\head\CHANGE\UserIconsMale"

是PNG档

为什么显示找不到档案,侦错是FileCopy sf, df

我的档案在D:\MissionPack\Original-Chinese\Save\head\CHANGE\UserIconsMale"

是PNG档,可是

做一个窗体前置显示，在窗体中做一个拖放事件，将要移动的图片选中拖放到窗体。