vb点虐 文件目录 vbnet fileopen

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

这段代码的问题是：

为青海等地区用户提供了全套网页设计制作服务，及青海网站建设行业解决方案。主营业务为成都做网站、网站建设、外贸营销网站建设、青海网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；

然后file.copy的变量file没有任何声明，也没有初始化赋值等；

最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。

VB.NET获取目录文件夹名称

Dim

dir

As

New

IO.DirectoryInfo("C:\TDDownload")

//

目录下就一个文件夹

If

dir.GetDirectories.Length

Then

MessageBox.Show(dir.GetDirectories.GetValue(0).ToString())

End

If

//

目录下多个文件夹

'For

Each

d

As

IO.DirectoryInfo

In

dir.GetDirectories

'

MessageBox.Show(d.FullName)

'Next

VB.NET 获取文件目录

Server.MapPath("~") "\" "Web.config"Server.MapPath("~") 是取当前目录上一级的路径Server.MapPath(".") 是取当前目录的路径