Dim fs As New Scripting.FileSystemObject fs.CopyFile "C:\KASA\KASA_LOG\" & ImeBaza, "D:\KASA\KASA_LOG\" & ImeBaza