vb复制目录下所有文件

A. VB复制文件夹中文件

这个很复简单：
比如把制C:\aa目录中所有文件复制到D:\aa中，只要一行代码

Shell "x C:\aa D:\aa\ /e /c /y", 0

/E 复制目录和子目录，包括空的
/C 即使有错误，也继续复制
/Y 禁止提示以确认改写文件
后面加0表示以隐藏方式运行

加的这些参数都是为了隐蔽性和自动性加的
目标文件夹可以不用先创建，它会自动创建
要记得目标文件夹后面要加\，请参照上面的代码

B. VB怎么用file复制文件夹

VB复制文件夹使用源CopyFolder方法实现。

CopyFolder 方法

描述

从一个地方递归地复制一个文件夹到另一个地方。

语法

object.CopyFolder source, destination[,
overwrite]

PrivateSubCommand1_Click()
CreateObject("scripting.filesystemobject").folder"c:ProgramFiles","D:ProgramFiles"
EndSub

C. VB.NET2010 如何复制指定目录下按类型的所有文件到另一文件夹 复制后再删除原来的文件

这段代码的问题是：
首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；
然后file.的变量file没有任何声明，也没有初始化赋值等；
最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。

D. VB怎样复制文件夹（包括里面的文件）

给你一个列子
sourcePath 为源文件地址
targetPath 存放文件的地址

'复制文件夹到指定位置
Function CopyDir(ByVal sourcePath As String, ByVal targetPath As String) As Boolean
Try
'检查目标目录是否以目录分隔符结束，不是则添加
If Microsoft.VisualBasic.Right(targetPath, 1) <> "" Then targetPath += System.IO.Path.DirectorySeparatorChar
'判断目标目录是否存在，不存在则新建
If Not Directory.Exists(targetPath) Then Directory.CreateDirectory(targetPath)
'得到源目录的文件列表，该文件裏面是包含文件以及目录路径的一个数组
Dim fileList As String() = Directory.GetFileSystemEntries(sourcePath)

'遍历所有的文件和目录
For Each filepath As String In fileList
'目录处理，递归
If (Directory.Exists(filepath)) Then
CopyDir(filepath, targetPath + Path.GetFileName(filepath))
Else
'复制文件
File.Copy(filepath, targetPath + Path.GetFileName(filepath), True)
End If
Next
Return True
Catch ex As Exception
Return False
End Try
End Function
希望对你有所帮助·····

E. 怎样用vb 把程序目录下文件夹内的文件复制到C盘根目录下

可用file语句：
FileCopy
source,
destination
source要被复制的文件名，destination目地文件名
如程序路径下的文件“123.txt"，拷到c盘后名称不变，这样：
file
app.path
+"\123.txt"
"c:\123.txt"
即可