Hacemos un Split del nombre del archivo desde el punto, osea partimos el nombre desde el punto.
Ejemplo: Pielcelestial.exe el "." separa el nombre a la extencion
entonces ahora biene las funciones LBound y UBound.
LBound muestra del punto a la izquierda.
UBound muestra del punto a la derecha.
Slek escribió:UBound es una función de VB6 que devuelve el valor máximo que tiene el array que le pasas como parámetro.
LBound es prima-hermana de la anterior, solo que esta última devuelve el valor mínimo del array (por defecto en 0)
Código: Seleccionar todo
text1.text = .FileName
X = Split(.FileName, ".")
MsgBox "A escojido:" & vbNewLine & X(LBound(X)) & vbNewLine & "Con la siguiente Extencion:" & vbNewLine & X(UBound(X)), vbInformation

Bueno asi es como lo entendi yo :P