Foro de elhacker.net

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)

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

Un saludo,si tenes algun problema pregunta;)

Yo usaba estas en el F Joiner ;)

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

Extrae exactamente lo que quieres...

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

LOL, ok

Proba tuCD.FileTitle

LOL!

Si no me equivoco ese no devuelve extension! :S

Si te ekivocas, probalo.

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

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