问题描述
以前学过VB，这个VB.NET完全不一样啊，弄了半天要疯了
解决方案
解决方案二：
学VB的人这么少啊
解决方案三：
给你提供个思路,遍历指定盘下的所有文件,如果是mpg文件则判断大小,如果小于1G则执行你要的操作
解决方案四：
引用2楼u012804018的回复:
给你提供个思路,遍历指定盘下的所有文件,如果是mpg文件则判断大小,如果小于1G则执行你要的操作
谢谢
解决方案五：
一个循环就足矣做到Dimfilenames()DimiAsIntegerForEachfilenames(i)InfilenamesApplication.DoEvents()DimfiAsNewSystem.IO.FileInfo(filenames(i))'获取文件长度并进行对比Iffi.Length>1000000000ThenMsgBox(filenames(i)&"大于1G")EndIfNextNext
解决方案六：
DimfilesAsReadOnlyCollection(OfString)files=My.Computer.FileSystem.GetFiles("d:",FileIO.SearchOption.SearchAllSubDirectories,"*.txt")DimfileSizeAsLongForEachfAsStringInfilesLabel1.Text=fApplication.DoEvents()fileSize=My.Computer.FileSystem.GetFileInfo(f).LengthIffileSize>1024*1024*1024ThenIfMsgBox("找到大于1G的文件了，就是这个："&f&",是否继续找？",MsgBoxStyle.YesNo)=MsgBoxResult.NoThenExitForEndIfEndIfNext
解决方案七：
要遍历文件，需要递归操作。使用“迭代器”可以将程序写得比较清爽。例如我们打印前50个符合条件的文件，可以写ImportsSystem.IOModuleModule1SubMain()ForEachfIn查找目录下不大于1G的文件(NewDirectoryInfo("c:")).Take(50)Console.WriteLine("{0}--Size{1}kB",f.FullName,CType(f.Length/1024,Integer))NextConsole.ReadKey()EndSubPublicIteratorFunction查找目录下不大于1G的文件(dirAsDirectoryInfo)AsIEnumerable(OfFileInfo)TryDimf=dir.EnumerateFiles.First()'先判断是否允许访问此目录CatchexAsExceptionReturnEndTryForEachfIndir.EnumerateFilesIff.Extension.ToLower=".mpg"Andf.Length<=1024*1024*1024ThenYieldfNextfForEachdIndir.EnumerateDirectoriesForEachfIn查找目录下不大于1G的文件(d)YieldfNextNextEndFunctionEndModule
解决方案八：
引用楼主u010552596的回复:
以前学过VB，这个VB.NET完全不一样啊，弄了半天要疯了
VB那点知识，实在是不够用啊。
解决方案九：
要识别不同方法的区别，那么就用几个测试用例来试一下。比如说你把上面的".mpg"改为".txt"(（方便看到效果），把Take(50)改为Take(5)，来试一下，看看不同方法输出结果的速度如何？！这就能区别不同程序的关键问题。会写代码其实不算什么。会识别不同代码的不同点，才是关键。
解决方案十：
引用6楼sp1234的回复:
要遍历文件，需要递归操作。使用“迭代器”可以将程序写得比较清爽。例如我们打印前50个符合条件的文件，可以写ImportsSystem.IOModuleModule1SubMain()ForEachfIn查找目录下不大于1G的文件(NewDirectoryInfo("c:")).Take(50)Console.WriteLine("{0}--Size{1}kB",f.FullName,CType(f.Length/1024,Integer))NextConsole.ReadKey()EndSubPublicIteratorFunction查找目录下不大于1G的文件(dirAsDirectoryInfo)AsIEnumerable(OfFileInfo)TryDimf=dir.EnumerateFiles.First()'先判断是否允许访问此目录CatchexAsExceptionReturnEndTryForEachfIndir.EnumerateFilesIff.Extension.ToLower=".mpg"Andf.Length<=1024*1024*1024ThenYieldfNextfForEachdIndir.EnumerateDirectoriesForEachfIn查找目录下不大于1G的文件(d)YieldfNextNextEndFunctionEndModule
这个不错，考虑很全面。我那个还缺个判断是否允许访问此目录。
解决方案十一：
遍历也太不符合实际了吧？有usn啊~！！有everything啊~！我的博客中有个类似介绍的，你可以参考一下http://blog.csdn.net/ztmsimon/article/details/50913289