2014-10-17 78 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

相关问题