'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