Function copyFile(sFile As String, sSFolder As String, sDFolder As String) As String
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If Not FSO.FileExists(sSFolder & sFile) Then
        copyFile = "File Not Found!"
        
    ElseIf Not FSO.FileExists(sDFolder & sFile) Then
        FSO.copyFile (sSFolder & sFile), sDFolder, True
        copyFile = "Done!"
    Else
        copyFile = "Existed!"
    End If
End Function