Public i As Integer
Public MyShell As Object
Public fu As String
上面是模块中的定义
Private Sub Command3_Click()
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
fu = List1.Text
FileSystemObject.CopyFile fu, "E:\完成"
Next
List1.Clear
End Sub
这个代码FileSystemObject.CopyFile fu, "E:\完成" 提示错误
另 VB可以选择文件夹 并定义到变量吗
　　　　------听说现在流行发帖必须一定肯定以及确定要带尾巴，不带尾巴的都被秒删了。

你这是循环复制？？

你这个程序是为了完成【将某个文件夹中的所有文件备份到另一个文件夹中去】吗？
如果是这样，应该用【文件列表框】FileListBox 控件，而不是一般列表框控件。
'　Drive1 是驱动器（磁盘）列表框
‘　Dir1 是文件夹（路径）列表框
'　File1 是文件名列表框
'　Text2 是要准备装备份文件的文件夹（绝对路径）
Private Sub 备份文件_Click()
Dim i&, nGS&, cLJ1$, cLJ2$, cWJ1$, cWJ2$
cLJ1 = Dir1.Path
cLJ2 = Trim(Text2.Text)
If Right(cLJ1, 1) <> "\" Then cLJ1 & "\"
If Right(cLJ2, 1) <> "\" Then cLJ2 & "\"
If Dir(cLJ2, vbDirectory) = "" Then Mkdir cLJ2
nGS = File1.ListCount - 1
For i = 0 To nGS
cWJ1 = cLJ1 & File1.List(i)
cWJ2 = cLJ2 & File1.List(i)
FileCopy cWJ1, cWJ2
Next i
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

这个图片浏览器的右边就用了【驱动器列表框、文件夹列表框、文件名列表框】。
图片来自：Luosen56的百度相册