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

这段代码的问题是：

专注于为中小企业提供成都网站制作、成都网站设计、外贸营销网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业谷城免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了千余家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

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

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

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

用VB.NET 删除文件夹 连带这子目录一起删除怎么处理

看看这个，有删除的

Public strPath As String '要导出的文件夹路径

Public NewFile As String '文件保存用

'创建文件夹

Public Sub CreatemyFolder(str As String)

Dim Mybook As Workbook

Dim f

Dim mypath As String

'Dim NewFile As String

Dim strPathFolder$

Dim abc As Object

NewFile = str

'强制覆盖保存时，不让确认框弹出？

Application.DisplayAlerts = False

Set Mybook = ThisWorkbook '把当前工作簿定义为变量Mybook

mypath = ThisWorkbook.Path "\"

strPathFolder = mypath NewFile

strPath = strPathFolder "\"

On Error Resume Next

Set abc = CreateObject("Scripting.FileSystemObject")

If abc.FolderExists(strPathFolder) = True Then

'===删除文件夹==========

Set f = abc.GetFolder(strPathFolder)

f.Delete

abc.CreateFolder (strPathFolder)

'===删除文件夹==========

Exit Sub

Else

abc.CreateFolder (strPathFolder)

End If

Set abc = Nothing

End Sub

vb.net 创建文件夹和删除文件夹

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

Try

' 先建立目录以便用于后续的删除示范。

If Not Directory.Exists("D:\网易") Then

Directory.CreateDirectory(" D:\网易 \Test1")

Directory.CreateDirectory(" D:\网易 \Test2")

Directory.CreateDirectory(" D:\网易 \Test3")

End If

' 删除子目录 Test1。

Directory.Delete(" D:\网易 \Test1", True)

' 删除子目录 Test2。

Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

myDirectoryInfo.Delete(True)

' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。

Directory.Delete(" D:\网易 ", True)

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

' 启动 Windows 资源管理器。

Process.Start("explorer.exe", "D:\")

End Sub

VB.NET 怎样删除指定文件夹上所有空文件夹

删除

C

盘的空文件夹,

在下边C:\处可换成你的指定路径即可

复制以下代码入记事本,另存为Clear.bat双击运行即可@echo

offfor

/f

"tokens=*"

%%a

in

('dir

/b

/ad

/s

C:\^|sort

/r')

do

rd

"%%a"

/q

2nul

vb.net删除文件

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

Try

' 先建立目录以便用于后续的删除示范。

If Not Directory.Exists("D:\网易") Then

Directory.CreateDirectory(" D:\网易 \Test1")

Directory.CreateDirectory(" D:\网易 \Test2")

Directory.CreateDirectory(" D:\网易 \Test3")

End If

' 删除子目录 Test1。

Directory.Delete(" D:\网易 \Test1", True)

' 删除子目录 Test2。

Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

myDirectoryInfo.Delete(True)

' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。

Directory.Delete(" D:\网易 ", True)

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

' 启动 Windows 资源管理器。

Process.Start("explorer.exe", "D:\")

End Sub

当前文章：vb.net清空文件夹 VB删除文件
本文来源：http://kswjz.com/article/hgpdip.html