这段代码的问题是：
创新互联公司服务项目包括大东网站建设、大东网站制作、大东网页制作以及大东网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，大东网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到大东省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；
然后file.copy的变量file没有任何声明，也没有初始化赋值等；
最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定和亮迟的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能键灶跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别唤李放在2次循环里，第一次只复制文件，第二次才去删除。
用Directory.CreateDirectory即可创建文件夹：
' 建立目录
If Not Directory.Exists("C:\负屃\" TextBox1.Text) Then 凯锋瞎'检查文件夹是否存在
Directory.CreateDirectory("C:\负屃\" 基数TextBox1.Text) '不存在，创建文件建夹
End If
你的例子是因为少了一个"\"引起的，正确的如下：
Dim fsotest As New FileSystemObject
If fsotest.FileExists("C:\负屃\" TextBox1.Text) = False 盯空Then
fsotest.CreateFolder("C:\负屃\" TextBox1.Text) '这里你少了一个\
End If
MsgBox("创建成功")
这篇文章介绍了拷贝整个目录下蠢卜庆所有子目录及文件的代码弊枣 有需要的朋友可以参带握考一下 复制代码 代码如下: lishixinzhi/Article/program/net/201311/14105
vb点虐 ：
Dim
path
=
System.IO.Directory.GetFiles("D:\Log\abc",
"*.txt",
SearchOption.AllDirectories)：搜索该老历路径下的所有txt类型的目录颤扮及子目录
path.AddRange(path)
Dim
_RecordInfo
As
String
Dim
_Reader
As
StreamReader
_Reader
=
New
StreamReader(file,
System.Text.Encoding.Default)：'以Default编码侍洞搜的形式读取file文件(文件写入的编码要与读取的编码一致)