我搞不懂这是怎么用的 请高手指教！！

来源：百度知道 编辑：UC知道 时间：2024/06/13 22:32:11
Private Sub Command2_Click()
If File1.ListIndex = -1 Then Exit Sub
If MsgBox("确认同步" & File1.List(File1.ListIndex), vbYesNo, "警告") = vbNo Then Exit Sub
Dim path1 As String, path2 As String
path1 = IIf(File1.Path Like "*\", File1.Path, File1.Path & "\")
path2 = IIf(File2.Path Like "*\", File2.Path, File2.Path & "\")
FileCopy path1 & File1.List(File1.ListIndex), path2 & File1.List(File1.ListIndex)
File2.Refresh
End Sub
其中的
path1 = IIf(File1.Path Like "*\", File1.Path, File1.Path & "\")
path2 = IIf(File2.Path Like "*\", File2.Path, File2.Path & "\")
FileCopy path1 & File1.List(File1.ListIndex), path2 & File1.List(File1.ListIndex)
File2.Refresh
看不明白！！！！？？？
请高手指教 不胜感激啊！！！

path1 = IIf(File1.Path Like "*\", File1.Path, File1.Path & "\")
'如果“File1.Path”的最后不是“\”结尾，则自动加“\”

path2 = IIf(File2.Path Like "*\", File2.Path, File2.Path & "\")
'和上边的一个道理

FileCopy path1 & File1.List(File1.ListIndex), path2 & File1.List(File1.ListIndex)
'从path1到path2复制File1中选中的文件

File2.Refresh
'刷新File2中显示的内容

分句解释：
path1 = IIf(File1.Path Like "*\", File1.Path, File1.Path & "\")
如果“File1.Path”的最后一字符不是\，则后面加一个\（获取路径时，如为根目录，则最后自带\，例如C:\；反之则不带，例如C:\Program Files）
path2 = IIf(File2.Path Like "*\", File2.Path, File2.Path & "\")
同上
FileCopy path1 & File1.List(File1.ListIndex), path2 & File1.List(File1.ListIndex)
复制文件
File2.Refresh
刷新。从代码看，估计是一个FileListBox控件，而你已经将其和某一路径绑定，由于上一条语句复制了一个文件到其所绑定的路径，故刷新后可看到刚复制的文件。