Question

vb如何复制text1中的文件到text2文件夹中

text1中是文件路径（如：C:\TT\test.xls）；text2中是存放文件的路径（比如是：D:\Soft）
目的是通过点击按钮将text1中的test.xls文件复制到text2的路径中去。
请看清楚，text1中是文件，text2中是文件夹路径。谢谢！
晕了，不知道是不是我没表达清楚。
我的意思的是text1中的文件和text2中的路径都是活动的，可以变换文件和路径啊！
应该不难吧？

Answer 1

'唉，用filecopy 和dos的copy均可以实现，都给你写出来，选择一种方法，把另一行注释掉。文件名未做更改 。
Private Sub Command1_Click()
On Error GoTo errtrap
If Dir(Text2.Text) = "" Then
Shell "cmd.exe /c md " & Text2.Text
End If
fname = Split(Text1.Text, "\")
FileCopy Text1.Text, Text2.Text & "\" & fname(UBound(fname)) ‘方法一
Shell "cmd.exe /c copy " & Text1.Text & " " & Text2.Text ’方法二
Exit Sub
errtrap:
MsgBox err.Description
End Sub

Answer 2

Private Sub Form_click()
Text1.Text = "z:\1.vbs"
Text2.Text = "z:\新建文件夹\"
Shell "cmd /c copy " & Text1.Text & " " & Text2.Text, vbHide
End Sub

用DOS的copy命令比较方便点 不会像filecopy函数 复制文件时需要写目标文件名 且如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误

Answer 3

咱是路过滴```
一楼的是正解,,不过没把楼主的精神吃透````或者楼主没把一楼的看清`````
我加一点点楼主你就全明白了,,,,,如我有fafa.txt文件,我现在要把它从d移动到e:\1的文件夹下面.你看代码````
Private Sub Command1_Click()
FileCopy Text1.Text, Text2.Text
End Sub

Private Sub Form_Load()
Text1 = "d:\fafa.txt"
Text2 = "e:\1\fafa.txt" '可以不用原来的名字fafa,但是后辍一定要是.txt,还有要有1这个文件夹``
End Sub

并且只能复制一次
明白了吧!!!你text2里必须要在后面加.xls,如text2="D:\Soft\fafa.xls"

Answer 4

Private Sub Form_Load()
FileCopy Text1.Text, Text2.Text & Dir(Text1.Text, vbHidden + vbSystem + vbReadOnly)
End Sub

Answer 5

privata sub command1_click()
filecopy "c:\\tt\test.xls" ,"d:\\Soft"

end sub