使用Visual Basic中的殺死文件

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 

我想用Kill(Me.FileReference.Text("\*.txt"))以txt extention將文件移動在文本框中名爲Filereference.text包含使用MyFolderBrowser.SelectedPath解壓的目錄。

我該怎麼做？

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