IO.bas

   1 Attribute VB_Name = "IO"
   2 Option Explicit
   3
   4 'Este modulo fué programado por Vlad - TodoSV.com & SVCommunity.org
   5 Public Function IO_Titulo_de_Archivo(ByVal Ruta_Completa As String) As String
   6         '<EhHeader>
   7         On Error GoTo IO_Titulo_de_Archivo_Err
   8         '</EhHeader>
   9         Dim i As Long
  10 100     i = InStrRev(Ruta_Completa, "\")
  11 101     IO_Titulo_de_Archivo = Mid$(Ruta_Completa, i)
  12         '<EhFooter>
  13         Exit Function
  14 IO_Titulo_de_Archivo_Err:
  15         Controlar_Error Erl, Err.Description, "P10XB.IO.IO_Titulo_de_Archivo.Ref 7/6/2008 : 11:57:58"
  16         Resume Next
  17         '</EhFooter>
  18 End Function
  19
  20 Public Function IO_Extension_de_Archivo(ByVal Ruta_Completa_o_Titulo As String) As String
  21         '<EhHeader>
  22         On Error GoTo IO_Extension_de_Archivo_Err
  23         '</EhHeader>
  24         Dim i As Long
  25 100     i = InStrRev(Ruta_Completa_o_Titulo, ".")
  26
  27 101     If i = 0 Then Exit Function
  28 102     IO_Extension_de_Archivo = Mid$(Ruta_Completa_o_Titulo, i + 1)
  29         '<EhFooter>
  30         Exit Function
  31 IO_Extension_de_Archivo_Err:
  32         Controlar_Error Erl, Err.Description, "P10XB.IO.IO_Extension_de_Archivo.Ref 7/6/2008 : 11:57:58"
  33         Resume Next
  34         '</EhFooter>
  35 End Function