VB.net 移动文件夹去另一个地址，删除文件夹里某种类型的文件

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