'Comprueba si Existe un Fichero
'
Public Function FileExists(sFile as string) as Boolean
On Error GoTo Trapit
x = GetAttr(filename)
Trapit:
If Err = 0 Then
FileExists = True
Else
FileExists = False
Exit Function
End If
End Function