這段代碼的問題是:
創(chuàng)新互聯(lián)建站主要從事成都做網(wǎng)站、網(wǎng)站設計、網(wǎng)頁設計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務。立足成都服務盤錦,10年網(wǎng)站建設經(jīng)驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220
首先for each循環(huán)在files里查找文件對象,但是f變量聲明為string了,無法讓它獲取對象;
然后file.copy的變量file沒有任何聲明,也沒有初始化賦值等;
最后,整個for each循環(huán)里查找集合files的文件,由于初始化的循環(huán)計數(shù)器仍然按照最初設定的文件數(shù)目向后遞增(文件地址),但是實際文件刪除一部分,后續(xù)的文件位置就不能跟循環(huán)計數(shù)指針匹配了,所以默認為查找不到文件,將會報錯。一般的做法時把復制和刪除分別放在2次循環(huán)里,第一次只復制文件,第二次才去刪除。
Microsoft.VisualBasic.FileSystem.Rename(原文件夾完整路徑名稱,新的文件夾名稱)
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\1")‘當路徑不對時會把原文件夾剪切到“D:\2\”下面文件夾名稱不變
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\2")")‘當路徑不對時會把原文件夾剪切到“D:\2\”下面文件夾名稱 更改為 2
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2")’當路徑相同時只改文件夾名稱 不移動文件
在窗體上添加2個文本框,1個按鈕:
其中1個文本框用來輸入:源文件夾,另1個文本框用來輸入目標文件夾
1個按鈕編寫代碼:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MySourceFolder As String
If Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "\" Then
MySourceFolder = TextBox1.Text
Else
MySourceFolder = TextBox1.Text "\"
End If
Dim MyDestFolder As String
If Microsoft.VisualBasic.Right(TextBox2.Text, 1) = "\" Then
MyDestFolder = TextBox2.Text
Else
MyDestFolder = TextBox2.Text "\"
End If
Dim MyDir As New System.IO.DirectoryInfo(MySourceFolder)
Dim MyFiles() As System.IO.FileInfo = MyDir.GetFiles("*.txt")
For Each MyFile As System.IO.FileInfo In MyFiles
System.IO.File.Copy(MySourceFolder MyFile.Name, MyDestFolder MyFile.Name, True) '允許同名覆蓋,否則為False
Next
End Sub
在窗體上放置一個 Timer 控件,Interval 屬性設置為 120000(120000毫秒=120秒=2分鐘),Enabled 屬性設置為 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")??'移動?C:\a?文件夾所有文件到?D:\b????
End?Sub