❶ VB.NET遍历查找某个文件夹，并找出指定文件
解压密码：1299
假设路径为C:abc
代码：
PublicClassForm1
PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load
DimFilesAsObjectModel.ReadOnlyCollection(OfString)=My.Computer.FileSystem.GetFiles("C:abc")
DimFileSizeAsLong,FileNameAsString=Nothing
DimoFileSizeAsLong
ForEachFileAsStringInFiles
oFileSize=My.Computer.FileSystem.GetFileInfo(File).Length
IfoFileSize>FileSizeThen
FileSize=oFileSize
FileName=File
EndIf
Next
DimListNAsListViewItem=NewListViewItem(My.Computer.FileSystem.GetName(FileName))
ListN.SubItems.Add(oFileSize&"byte")
ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension&"文件")
ListN.SubItems.Add(FileName)
ListView1.Items.Add(ListN)
EndSub
EndClass
详见源代码！！
❷ VB.NET2010 如何复制指定目录下按类型的所有文件到另一文件夹 复制后再删除原来的文件
这段代码的问题是：
首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；
然后file.的变量file没有任何声明，也没有初始化赋值等；
最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。