給你個方法原型:
創(chuàng)新互聯(lián)公司主要從事成都做網(wǎng)站、成都網(wǎng)站制作、網(wǎng)頁設計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務。立足成都服務月湖,十年網(wǎng)站建設經(jīng)驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220
File.Copy("~\*.*","~\",Boolean)
第一個參數(shù)是String,指定原文件的Path;
第二個參數(shù)是String,指定拷貝目標Path;
第三個參數(shù)是Boolean,表示覆蓋同名文件。
自己修改一下即可。
先要明白原理:
可以將你的問題轉化成:有兩個杯子Text1和Text2,將兩個杯子中的水(.text)互換應該怎么做?
答案是用另外一個空杯子C來輔助。
關鍵語句:
C=Text1.text
Text1.text=Text2.text
Text2.text=C
假設A截圖為SHEET1表,B截圖為sheet2表
用 與語句
for i= 6 to 9
sheets("sheet1").cells(i,4)=sheets("sheet2").cells(i,2)
next i
即可
也可以用RANGE語句一次賦值完成
如果不用byref傳址方式,而是byval傳值方式調用參數(shù),就要用到function來實現(xiàn),sub是不行的。function的返回值可以是一個數(shù)組,只包含兩個元素,或者返回一個字符串,形式類似 a|b,然后接收到字符串了以后分割一下,就可以得到交換后的值了。其實這樣反而麻煩,還不如在程序內(nèi)部調用。
在窗體上添加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