❶ 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次循環里,第一次只復制文件,第二次才去刪除。