For n = 0 To File1.ListIndex - 1
FileCopy File1.List(n), Destinationdir
Next n