如何移动图片

bryanhui888 发布于 2015-08-05 02:40， 620 次点击

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

7 回复

wmf20142015-08-05 04:32

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

lianyicq2015-08-05 08:49

回复楼主 bryanhui888

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

lianyicq2015-08-05 08:54

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

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

bryanhui8882015-08-05 11:29

THANKS A LOT

bryanhui8882015-08-05 15:35

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

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

是PNG档

bryanhui8882015-08-05 15:40

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

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

是PNG档,可是

zrf12982015-09-24 21:55

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