'
文件夹复制
Function CopyDir() Function CopyDir(ByVal sourcePath As String, ByVal targetPath As String) As Boolean
Try
'检查目标目录是否以目录分割字符结束,不是则添加
If Right(targetPath, 1) <> "" Then targetPath += ""
'判断目标目录是否存在,不存在则新建
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
' 文件夹删除
Function DelDir() Function DelDir(ByVal targetPath As String) As Boolean
Try
'检查目标目录是否以目录分割字符结束,不是则添加
If Right(targetPath, 1) <> "" Then targetPath += ""
'得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组
Dim fileList As String() = Directory.GetFileSystemEntries(targetPath)
'遍历所有的文件和目录
For Each filepath As String In fileList
'目录处理,递归
If (Directory.Exists(filepath)) Then
DelDir(targetPath + Path.GetFileName(filepath))
Else
'删除文件
File.Delete(targetPath + Path.GetFileName(filepath))
End If
Next
'删除文件夹
System.IO.Directory.Delete(targetPath, True)
Return True
Catch ex As Exception
Return False
End Try
End Function
Function CopyDir() Function CopyDir(ByVal sourcePath As String, ByVal targetPath As String) As Boolean
Try
'检查目标目录是否以目录分割字符结束,不是则添加
If Right(targetPath, 1) <> "" Then targetPath += ""
'判断目标目录是否存在,不存在则新建
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
' 文件夹删除
Function DelDir() Function DelDir(ByVal targetPath As String) As Boolean
Try
'检查目标目录是否以目录分割字符结束,不是则添加
If Right(targetPath, 1) <> "" Then targetPath += ""
'得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组
Dim fileList As String() = Directory.GetFileSystemEntries(targetPath)
'遍历所有的文件和目录
For Each filepath As String In fileList
'目录处理,递归
If (Directory.Exists(filepath)) Then
DelDir(targetPath + Path.GetFileName(filepath))
Else
'删除文件
File.Delete(targetPath + Path.GetFileName(filepath))
End If
Next
'删除文件夹
System.IO.Directory.Delete(targetPath, True)
Return True
Catch ex As Exception
Return False
End Try
End Function