1. move one folder including inside files/folders to another path. 把一个文件夹及其里面的所有文件/文件夹移去另一个地址。

e.g.把最近一次的log文件夹SourceFolder下的所有起始位Encrypted_* 字样的文件夹，及其这些文件夹里的所有文件，移去收藏文件夹TargetFolder下的以当时时间命名的文件夹下。

把D:\Input\Encrypted_2020移去D:\Input\Archive\20200119_102905\Encrypted_2020

SourceFolder='D:\Input\'
TargetFolder='D:\Input\Archive\'
Dim IndividualSubFolderName As String = DateTime.Now.ToString("yyyyMMddHHmmss".Substring(0, 8)) + "_" + DateTime.Now.ToString("yyyyMMddHHmmss".Substring(8, 6))
If (Not System.IO.Directory.Exists(TargetFolder + IndividualSubFolderName)) Then
    System.IO.Directory.CreateDirectory(TargetFolder + IndividualSubFolderName)
End If
Dim SubDirs() As String
Dim i As Integer
SubDirs = Directory.GetDirectories(SourceFolder, "Encrypted_*")
For i = 0 To UBound(SubDirs)
    Dim Source As New DirectoryInfo(SubDirs(i))
    Dim FolderName As Stringt
    FolderName = Source.Name
    MoveFolderTo(Source, TargetFolder + IndividualSubFolderName + "\" + FolderName)
其中MoveFolderTo函数
 
Private Sub MoveFolderTo(ByVal fromPathInfo As DirectoryInfo, ByVal toPath As String)
        Directory.Move(fromPathInfo.ToString, toPath)
    Catch ex As Exception
        _logger.LogException(ex)
    End Try
End Sub
 
2. 第1种情况的再举例
 
把D:\bin\Encrypted_2020移去D:\Input\Encrypted_2020
 
SourceFolder='D:\bin\Encrypted_2020'
TargetFolder='D:\Input\'
Dim SourceEncrypt As New DirectoryInfo(SourceFolder)
Dim IndividualSubFolderName As String = SourceEncrypt.Name
If (Not System.IO.Directory.Exists(TargetFolder)) Then
	System.IO.Directory.CreateDirectory(TargetFolder)
End If
MoveFolderTo(SourceEncrypt, TargetFolder + IndividualSubFolderName)
 
3. 删除文件夹里所有的某种类型的文件
 
e.g. 删除fromPathInfo这个path下面所有.csv类型的文件
 
fromPathInfo='D:\Input\'
Private Sub DeleteAllFiles(ByVal fromPathInfo As String)
	Dim OriginalFilePath = New DirectoryInfo(fromPathInfo)
	Dim OriginalFilePathInfo As String
	For Each file As FileInfo In OriginalFilePath.GetFiles("*.csv")
			OriginalFilePathInfo = fromPathInfo + "\" + file.ToString
			My.Computer.FileSystem.DeleteFile(OriginalFilePathInfo)
		Catch ex As Exception
			_logger.LogException(ex)
		End Try
End Sub
 
                                    // ======================================================  // 实现一个静态方法将指定文件夹下面的所有内容Detele  // 测试的时候要小心操作，删除之后无法恢复。  // April 18April2005 In STU  // ====================================================
                                    1、目录结构及文件2、Linux命令	平常通过图形界面能够实现的功能，通过命令基本上都可以实现	1》命令的格式		命令  选项   参数		ls -a -l -h  		rm -r -f  a.txt b.txt	2》命令帮助信息		命令  --help		注意：并不是所有的命令都有帮助信息 pwd就没有	3》man命令		man是Linux提供的一个手册，这个手册有很多个章节		第一章中放的是 ...
                                    <br />利用线程，和计时器，Function GetFolderSize从网上借鉴的，IO类只支持不同分区移动，所以移动目录只能在相同分区，设计界面如图，<br />如： d:/a  d:/b(空目录)<br />代码如下<br /> <br />Imports System.IO<br />Imports System.Threading<br />Public Class Form2<br />    Dim SourceDir, DestDir As String<br />    Dim Sou
                                    我是个新手 在网上找了很久就没找到这样的一源码，结果自己狠心好好学习写一个，估计是技术太简单了吧，但是不知道为什么网上就没多少这样的共享资源，今天我把它穿上来分享给大家，很粗糙但是很实用。
调用方法：  EybaoFileCopy1.CopyFile(True, "源文件目录“, "目标路径") 第一个参数为 false的时候不会复制，算起来是个多余的，但是我在项目中要用到 呵呵。
                                    [url]http://developer.51cto.com/art/200910/158904.htm[/url]
VB.NET版   
[code="java"]Imports System.IO  
Imports System.IO.Directory  
' ======================================================  
' ...
                                    从入门到高手，让你21天成为VB.NET高手的源代码哦，我就不必把代码写出来了，你们自己去下载就可以了……不要忘了加我QQ群，收藏我的博客哦！下载地址：1-你好程序<!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";goog