vb.net转移文件 vb6转vbnet

vb.net请教怎么把一个文件夹下所有txt文本移动到另一个文件夹里^_^ tks

在窗体上添加2个文本框，1个按钮：

从策划到设计制作，每一步都追求做到细腻，制作可持续发展的企业网站。为客户提供网站建设、成都网站设计、网站策划、网页设计、域名注册、雅安服务器托管、网络营销、VI设计、网站改版、漏洞修补等服务。为客户提供更好的一站式互联网解决方案,以客户的口碑塑造优易品牌,携手广大客户,共同发展进步。

其中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

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

给你个方法原型：

File.Copy("~\*.*","~\",Boolean)第一个参数是String,指定原文件的Path；

第二个参数是String,指定拷贝目标Path；

第三个参数是Boolean，表示覆盖同名文件。

自己修改一下即可。

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")’当路径相同时只改文件夹名称不移动文件

分享标题：vb.net转移文件 vb6转vbnet
标题网址：http://myzitong.com/article/doiddsd.html