2012-02-21 49 views

回答

0

這將刪除指定目錄哪些擴展不在排除列表中的所有文件:

Dim exclude = ListBox1.Items.Cast(Of Object).Select(Function(i) i.ToString) 
Dim delQ = From path In IO.Directory.GetFiles("C:\MYFILES") 
      Where Not exclude.Contains(IO.Path.GetExtension(path)) 
      Select New IO.FileInfo(path) 
For Each delFile In delQ 
    delFile.Delete() 
Next 

不要忘記在文件擴展名點(FE .txt

+0

它現在說聲明的結尾預計這我不能解決? – 2012-02-21 14:10:44

+0

你使用的是什麼框架版本? 3.5中引入了[LINQ](http://msdn.microsoft.com/en-us/library/bb397910.aspx)。 – 2012-02-21 14:14:11

+0

不用擔心我的系統今天起作用了,現在可以工作了(現在) – 2012-02-21 15:08:51