programming card problem

[sonic1]

programmed one card titanium two ntl, went to programme second card found would not work ended up with this error problem in explorer Open File
Const FileFilter = "All Eprom Files (*.bin, *.bn10)|*.bin;*.bn10;|Bin Files (*.bin)|*.bin|BN10 Files (*.bn10)|*.bn10"

FileName = Fs.FileOpenDialog(FileFilter, "Please select a valid bin file", "titanium_eep10.bin.bn10")
If FileName <> "" Then
' Check if the file exists
If Fs.FileExists(FileName) = 0 Then
Sc.MsgBox("The file does not exist")
Else
InFile = Fs.FileOpen(FileName, fsoOpenRead)
End If
End if

' seek to end of file to get size
FileSize = Fs.FileSeek(InFile, 0, fsoSEEK_END)
Sc.Print "The file size is " & FileSize & vbCr & vbCr
' Reposition to begining of file
call Fs.FileSeek(InFile, 0, fsoSEEK_SET)

' check filesize
if FileSize <> 8192 then
Sc.MsgBox("The file has a wrong size (ROM10 eeprom = 8192 bytes).")
Fs.FileClose(InFile)
exit sub
end if
Any idea what I could be doing wrong as I am new to this, any help would be appreciated or any run through guide

Thanks

[sonic1]

hi to all its ok got it sorted now