Vb.net 在Visual Basic中使用Kill移动文件

我正在使桌面更干净，我希望程序搜索文件扩展名，并将它们移动到一个新文件夹中，每个文件夹都以扩展名命名。这是我的

Public Class Form2


Private Sub Form_Load()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim MyFolderBrowser As New System.Windows.Forms.FolderBrowserDialog
    Dim dlgResult As DialogResult = MyFolderBrowser.ShowDialog()

    Me.FileReference.Text = MyFolderBrowser.SelectedPath
End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Label1.Text = "Cleaned."
    If CheckBox1.Checked = True Then
        On Error Resume Next
        Kill(Me.FileReference.Text("\*.txt"))
        If Not Directory.Exists(FileReference.Text) Then
            Directory.CreateDirectory(FileReference.Text)
        End If
    End If
End Sub


End Class

我想使用

Kill（Me.FileReference.Text（\*.txt”）

来移动名为

FileReference.Text的文本框所包含的目录中扩展名为.txt的文件。Text

使用

MyFolderBrowser.SelectedPath

提取

---

我该怎么做？

谢谢你的回答，但是我该如何使用（FileReference.text）（TextBox），这样用户就可以选择文件夹而不是程序来选择它，例如我如何使用它而不是“C:\StorageDir\”@请参见Sharp

For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
    My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
    FileIO.SearchOption.SearchAllSubDirectories, "*.*")

    Dim foundFileInfo As New System.IO.FileInfo(foundFile)
    My.Computer.FileSystem.MoveFile(foundFile, "C:\StorageDir\" & foundFileInfo.Name)
Next