Visual BasicでKillを使用してファイルを移動する

Question

デスクトップクリーナーを作成しています。ファイル拡張子を検索し、拡張子名の後にそれぞれ名前が付けられた新しいフォルダに移動します。ここに私が持っているものがあります。

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 

私はFilereference.textという名前のテキストボックスがMyFolderBrowser.SelectedPathを使用して抽出され含まれているディレクトリに.txtの拡張子を持つファイルを移動するためにKill(Me.FileReference.Text("\*.txt"))を使用したいです。

どうすればいいですか？

Answer 1

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