como obtener la extension y nombre del programa con CommondDialog

[ricardovinzo]

bueno tengo esta duda, imaginenmos que tenemos esta ruta:

C:\WINDOWS\system32\fotos\jose.exe

y yo saco esta ruta con el CD pero como puedo obtener el nombre + la extension del programa? sin la otra ruta?

espero no sea molestia

Salu2's! 8)

[Xerok1!]

Pues muy facil, puedes hacerlo de muchas formas pero te recomiendo que lo hagas sacando las 3/4 ultimas letras de la cadena para la extensión o hacer un bucle de la misma forma usando right hasta que te encuentres "\"
Eso te lo dejo a ti que es muy facil,para sacar la extension usa esto

Código [Seleccionar] Expandir

MsgBox Right(Text1.Text, 3)'el 3 es el numero de letras a leer


Un saludo,si tenes algun problema pregunta;)

[Freeze.]

Yo usaba estas en el F Joiner

Código (vb) [Seleccionar] Expandir

Public Function Ext(Ruta As String)
FullName = Mid$(Ruta, InStrRev(Ruta, "\") + 1)
Ext = Mid$(FullName, InStrRev(FullName, ".") + 1)
End Function
Public Function Nam(Ruta As String)
FullName = Mid$(Ruta, InStrRev(Ruta, "\") + 1)
Nam = Mid$(FullName, 1, InStrRev(FullName, ".") - 1)
End Function

[cassiani]

Extrae exactamente lo que quieres...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
Dim Path As String, Nombre As String

    Path = "C:\WINDOWS\system32\fotos\jose.exe"
   
    'InStrRev = Como el "InStr", devuelve la posición de la primera aparición de una _
    cadena dentro de otra, pero comenzando por el extremo derecho de la cadena.
   
    'Right = extraer caracteres desde el lado derecho de la cadena.
   
    'Len = Devuelve la cantidad de caracteres que tiene una determinada cadena.
    Nombre = Right(Path, Len(Path) - InStrRev(Path, "\"))
   
    MsgBox Nombre
End Sub

[Tughack]

LOL, ok

Proba tuCD.FileTitle

[ricardovinzo]

LOL!

Si no me equivoco ese no devuelve extension! :S

[Tughack]

LOL!

Si no me equivoco ese no devuelve extension! :S

Si te ekivocas, probalo.

[cassiani]

Si no me equivoco ese no devuelve extension! :S

lol y yo que pensaba que lo querías hacer sin el commond dialog  - por no fijarse en el título - 

[ricardovinzo]

XD.... era raro... por cierto no iba ! iba ? en lo del tughack! gracias TugHack! disculpa las molestias yo pense que solo daba nombre!