VB浏览选择指定文件后,点击按钮把此文件复制到指定目录.

Question

自己刚学VB有点菜!!!
不过我举一反三的能力很强的,呵呵呵.
现在有个问题想问问高手们.

点浏览按钮后,出现选择文件对话框,选择好文件后,在点击一个按钮然后就把这个文件复制到指定的其他文件夹内!

OK 了,就是这样地!!
要怎么写里`~~~

````
home20010252 师傅，我需要复制的都是 电影文件 .vod .dat .mpeg 这些。。。。

Answer 1

给你个文件复制程序代码吧，
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文件(*.doc)|*.doc|Txt文件(*.Txt)|*.txt|ALL File(*.*)|*.*"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
CommonDialog1.Filter = "文本文件(*.doc)|*.doc|Txt文件(*.Txt)|*.txt|ALL File(*.*)|*.*"
CommonDialog1.ShowSave
Text2.Text = CommonDialog1.FileName
If Text1.Text = "" Then
Exit Sub
Else
Command3.Enabled = True
End If
End Sub

Private Sub Command3_Click()
Dim char As Byte
Open Text1.Text For Binary As #1 '打开源文件
Open Text2.Text For Binary As #2 '打开目标文件
Command3.Caption = "正在复制..."
Do While Not EOF(1)
Get #1, , char
Put #2, , char '将读出的每一个字节写入到目标文件中
Loop
Close
MsgBox "文件复制完成!!"
Command3.Caption = "开始复制"
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Answer 2

Private Sub Command1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile Text1.Text, Text2.Text

MsgBox "文件复制完成!"

End Sub

Private Sub Text1_Click()
CommonDialog1.Filter = "ALL File(*.*)|*.*"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName

End Sub

Private Sub Text2_Click()
CommonDialog1.Filter = "ALL File(*.*)|*.*"
CommonDialog1.ShowSave
Text2.Text = CommonDialog1.FileName
If Text1.Text = "" Then Exit Sub
End Sub