這段代碼的問題是:
專注于為中小企業(yè)提供做網(wǎng)站、網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)海曙免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了近千家企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
首先for each循環(huán)在files里查找文件對(duì)象,但是f變量聲明為string了,無法讓它獲取對(duì)象;
然后file.copy的變量file沒有任何聲明,也沒有初始化賦值等;
最后,整個(gè)for each循環(huán)里查找集合files的文件,由于初始化的循環(huán)計(jì)數(shù)器仍然按照最初設(shè)定的文件數(shù)目向后遞增(文件地址),但是實(shí)際文件刪除一部分,后續(xù)的文件位置就不能跟循環(huán)計(jì)數(shù)指針匹配了,所以默認(rèn)為查找不到文件,將會(huì)報(bào)錯(cuò)。一般的做法時(shí)把復(fù)制和刪除分別放在2次循環(huán)里,第一次只復(fù)制文件,第二次才去刪除。
在窗體上放置一個(gè) Timer 控件,Interval 屬性設(shè)置為 120000(120000毫秒=120秒=2分鐘),Enabled 屬性設(shè)置為 True,添加如下代碼:
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
Dim?dDir1?As?New?System.IO.DirectoryInfo("C:\a")
dDir1.MoveTo("D:\b")??'移動(dòng)?C:\a?文件夾所有文件到?D:\b????
End?Sub
Microsoft.VisualBasic.FileSystem.Rename(原文件夾完整路徑名稱,新的文件夾名稱)
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\1")‘當(dāng)路徑不對(duì)時(shí)會(huì)把原文件夾剪切到“D:\2\”下面文件夾名稱不變
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\2")")‘當(dāng)路徑不對(duì)時(shí)會(huì)把原文件夾剪切到“D:\2\”下面文件夾名稱 更改為 2
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2")’當(dāng)路徑相同時(shí)只改文件夾名稱 不移動(dòng)文件