I had made a silly mistake!
I still need to have the name of the file that I want to copy.
It should have been as follows
Dim directory As New DirectoryInfo("C:\test\archive\")
Dim files As FileInfo() = directory.GetFiles()
For Each file In files
If (file.LastAccessTime < DateTime.Now.AddDays(-1)) Then
Dim fp As String
fp = file.FullName
System.IO.File.Move(fp, "C:\test\delete\" & file.Name & "")
End If
Next