2012-02-21 71 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

相关问题