Question

vb6批量复制文件

比如我想把D:\123中的所有GIF文件复制到D:\456中请问该怎么办？？
我想用VB把这里的文件拷出来C:\Users\samsung\AppData\Local\Microsoft\Windows\Temporary Internet Files\*.GIF

Answer 1

批量文件拷贝，使用CopyFolder函数，供参考

Private Sub Command1_Click()
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
FS.CopyFolder Trim("目标目录路径"), Trim("目的目录路径"), True
MsgBox "文件复制成功完成!", , "系统提示"
End Sub

Answer 2

dim fso
set fso=createobject("scripting.filesystemobject")
set fd=fso.getfolder("C:\Users\samsung\AppData\Local\Microsoft\Windows\Temporary Internet Files\")
set fs=fd.files

for each f in fs
if fso.getextensionname(f)="gif" then
f.copy "d:\"
end if
next

Answer 3

学习下···