can you check error for this code when I Run its saying If CB > 0 Then mismatch error?
Public Function modCreditmove()
Dim fso, CB As String
Set fso = CreateObject("Scripting.FileSystemObject")
CB = ("E:\BackupTesting\luckData2003.mdb")
If CB > 0 Then
fso.MoveFile...