2014-10-17 77 views
-2

我想刪除文件,如果它包含一個詞。我可以找到文件,如果它包含指定的字,刪除名稱中包含字符串的文件

Dim paths() As String = IO.Directory.GetFiles(%AppData% & "\etc\", "*chrome*") 
    If paths.Length > 0 Then 
    ' Delete file? 
    End If 

什麼是刪除文件的正確方法?

+0

這就是犯規編譯做它 – Plutonix 2014-10-17 20:26:14

+0

這告訴如果有一個文件包含的單詞。但不幸的是,我不知道如何刪除它。 – user198989 2014-10-17 20:31:32

+0

請使用directoryInfo而不是DirectoryInfo – NMK 2014-10-17 20:41:21

回答

3

這應該工作:

Dim path = IO.Path.Combine(
     Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), 
      "etc") 

    Dim filter = "chrome" 
    Dim files = 
     From fl In IO.Directory.GetFiles(path) 
     Where fl.Contains(filter) 
     Select fl 

    For Each fl In files 
     IO.File.Delete(fl) 
    Next 
+0

+1有點矯枉過正,但至少與通常的方法不同 – Steve 2014-10-17 20:41:12

+0

有語法錯誤> http://i.snag.gy/6Fm7N.jpg – user198989 2014-10-17 20:41:32

+0

我的不好,更新了代碼! – 2014-10-17 20:44:45

1

嘗試類似這樣的事情。 首先你需要有DirectoryInfo,從那裏你需要搜索&刪除。

 For Each file In New DirectoryInfo(Environment.SpecialFolder.ApplicationData).GetFiles("*chrome*") 
     file.Delete() 
     Next 
+0

不錯的做法,但給這個問題> http://i.snag.gy/iZody.jpg – user198989 2014-10-17 20:38:57

+0

只是更新了代碼。 – NMK 2014-10-17 20:59:08

相關問題