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

显示全部楼层 · 2011-2-17 01:38:24

text1中是文件路径（如：C:\\\\TT\\\\test.xls）；text2中是存放文件的路径（比如是：D:\\\\Soft）
目的是通过点击按钮将text1中的test.xls文件复制到text2的路径中去。

千问 · 2011-2-17 01:38:24

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

千问 · 2011-2-17 01:38:24

<pre class=\\\"answer-content\\\">privata sub command1_click()
filecopy \\\"c:\\\\\\\\tt\\\\test.xls\\\" ,\\\"d:\\\\\\\\Soft\\\"

end sub

千问 · 2011-2-17 01:38:24

<pre class=\\\"answer-content\\\">咱是路过滴```
一楼的是正解,,不过没把楼主的精神吃透````或者楼主没把一楼的看清`````
我加一点点楼主你就全明白了,,,,,如我有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\\\"

千问 · 2011-2-17 01:38:24

<pre class=\\\"answer-content\\\">Private Sub Form_Load()
FileCopy Text1.Text, Text2.Text defds123 Dir(Text1.Text, vbHidden vbSystem vbReadOnly)
End Sub

千问 · 2011-2-17 01:38:24

<pre class=\\\"answer-content\\\">Private Sub Form_click()
Text1.Text = \\\"z:\\\\1.vbs\\\"
Text2.Text = \\\"z:\\\\新建文件夹\\\\\\\"
Shell \\\"cmd /c copy \\\" defds123 Text1.Text defds123 \\\" \\\" defds123 Text2.Text, vbHide
End Sub

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