well i did this and works great
but i would like your opinion
filepath = c:\folder\test1.xls
filepath2 = StrReverse(filepath)
filepath2 = Trim(Left([filepath2], (InStr(1, [filepath2], "\") - 1)))
filepath2 = StrReverse(filepath2)
filepath2 = "D:\folder2" & filepath2
FileCopy filepath...