Trucos de Visual Basic 6

Una par tips para VB 6 y Microsoft Access que pueden ser de utilidad:

Como saber la extensión de un archivo

Esta instrucción tiene en cuenta que en el nombre del archivo pueda haber mas de un punto y que la extensión pueda ser un numero variable de caracteres. Se facilita en formato de Function pero puede ser convertida a una sola instrucción

[VB]
Function ExtensionArchivo(Archivo As String, Optional Caracter As String = “.”) As String
‘ Con \ devuelve el nombre del archivo completo
On Error Resume Next
ExtensionArchivo = Right(Archivo, Len(Archivo) – InStrRev(Archivo, Caracter))
End Function
[/VB]

Como entrar en un TextBox de Access y que se ponga al final del campo sin seleccionar todo el texto

[VB]

nombreCampo.SelLength = 0
nombreCampo.SelStart = Len(descripcion_episodio)

[/VB]