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
MsgBox Right(Text1.Text, 3)'el 3 es el numero de letras a leer
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
Cita de: ricardovinzo en 15 Junio 2008, 06:20 AM
LOL!
Si no me equivoco ese no devuelve extension! :S
Si te ekivocas, probalo.
Cita de: ricardovinzo en 15 Junio 2008, 06:20 AM
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 - :¬¬
XD.... era raro... por cierto no iba ! iba ? en lo del tughack! gracias TugHack! ;) disculpa las molestias yo pense que solo daba nombre!