完成将当前文件夹（test）中的所有子文件中的文件移动到当前文件夹（test）中，并删除所有子文件夹，如何实现？

Question

 完成将当前文件夹（test）中的所有子文件中的文件移动到当前文件夹（test）中，并删除所有子文件夹，如何实现？

Answer 1

自己给个答案：
VB.net
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1() As String    '存放所有子文件夹名
        Dim str2() As String    '存放某文件夹下的所有文件名
        Dim str As String       '指定文件夹如：c:\aa
        Dim path As String, dest_filename As String
        Dim i As Integer, j As Integer
        Dim filename() As String
        str = InputBox("指定文件夹", "输入文件夹", "C:\aa")
        str1 = Directory.GetDirectories(str) '获取指定文件夹下所有子文件夹名到str1数组
        For i = 0 To str1.Length - 1
            path = str1(i)
            str2 = Directory.GetFiles(path)
            For j = 0 To str2.Length - 1
                filename = str2(j).Split("\")
                dest_filename = str & filename(filename.Length - 1)
                If File.Exists(dest_filename) Then
                    File.Delete(dest_filename)  '虽然可以删除文件,但是不会把删除的文件放到回收站中.
                Else
                End If
                Directory.Move(str2(j), dest_filename)
            Next
            Directory.Delete(path, True)
        Next
        MessageBox.Show(Me.Text, "hello")
    End Sub
End Class