Question

vb中如何复制textbox1下指定路径文件到textbox2下，我的代码如下

Private Sub Command1_Click()
On Error GoTo err
Text1.Text = "d:\11.txt"
Text2.Text = "d:\22.txt"
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If Dir(Text1.Text) <> "" Then
FileCopyfso.CopyFile App.Path & "Text1.Text", "Text2.Text"
End If
Exit Sub
err:
MsgBox "错误"
End Sub

Answer 1

Private Sub Command1_Click()
On Error GoTo err
Text1.Text = "d:\11.txt"
Text2.Text = "d:\22.txt"
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If Dir(Text1.Text) <> "" Then
fso.CopyFile Text1.Text, Text2.Text
End If
Exit Sub
err:
MsgBox "错误"
End Sub

百度HI vb6专家群1358368

追问

如果不是复制文件内容，而是把d:\11.txt文件复制到d盘下以22为文件夹的目录下 该怎么弄呢，我改成
Text1.Text = "d:\11.txt"
Text2.Text = "d:\22"后出现错误

追答

Text2.Text = "d:\22\"

Answer 2

没必要使用FSO,直接使用函数即可
If Dir(Text1.Text) <> "" Then FileCopy Text1,Text2