vb文件复制

来源：百度知道 编辑：UC知道 时间：2024/06/15 18:35:44
在list1的控件中有如下字符
c:\1.txt
c:\ee\ww.txt
d:\33\5.txt
e:\er\44.doc
等详细文件地址
我想在按下command1 按键是依次复制list1内文件到指定的目录下如h:\xia\ 中 请问怎么用vb做到 请给出源代码( 依次复制)
先给15分 如果能达到目的在说啊

for i=0 to list1.listcount-1
s=list1.list(i)
filecopy s,"h:\xia\" & Mid(s, InStrRev(s, "\") + 1)
next i

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1 '遍历列表
FileCopy List1.List(i), "h:\xia\" '复制
Next
End Sub

'楼上的 Mid(s, InStrRev(s, "\") + 1) 是多余的。根据FileCopy的用法，第二参数直接赋路径即可。

2位高手的代码都实现不到吧。他只是在List1里面添加了一些路径，如果没做改动的话。你后面用到的FileCopy函数根本起不了作用。

1楼的完全正确