24/11/2004, 21:33
|
 | | | Fecha de Ingreso: marzo-2004 Ubicación: Lima
Mensajes: 307
Antigüedad: 20 años, 1 mes Puntos: 1 | |
| creo que la solucion seria:
If right(CDialogo.Filename,3)= "txt"
RTB.SaveFile CDialogo.FileName, vbCFText
else
RTB.SaveFile CDialogo.FileName, vbCFRFT
end if |