Dim sSrcPath As String
Dim sDestPath As String
Dim sFile As String
 
sSrcPath = Dir1.Path & IIf(Right$(Dir1.Path, 1) <> "\", "\", "")
sDestPath = Dir1.Path & IIf(Right$(Dir2.Path, 1) <> "\", "\", "")
 
sFile = File1.List(File1.ListIndex)
FileCopy sSrcPath & sFile, sDestPath & sFile