my code is

FileCopy GetAppPath() & "TCMS.mdb", "E:\TCMS Backup\TCMS Daily Backup\" & Format$(Now, "dd") & ".mdb"

Public Function GetAppPath() As String
GetAppPath = IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\")
End Function

i intend to take backup of my database file in a different folder in a different drive
but am getting an error "Runtime Error 70. Permission Denied

any body please help