COmo hago para que en un textbox despues de abrir un archivo desde un common dialog no se muestre toda la ruta sino solamente la aplicacion que quiero, es decir
Lo que obtengo y no quiero:
C:\Project\app\nog.exe
lo que quiero:
nog.exe
solo quiero que se muestre el nombre del archivo con su extension obviamente mas no toda su ruta, como le hago???
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileTitle
facil, no?
Y si no es de un CommonDialog, en general puedes hacerlo con la Api GetFileTitle. Aqui te dejo un ejemplo:
Dim Buffer As String
Buffer = String(255, 0)
GetFileTitle "c:\archivos de programa\test.tst", Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
MsgBox Buffer
gracias , ahora viene mi interrogante, todo conrrecto con el filetitle, pero si lo que deseo ahora es que aparezca el nombre sin su extension como se hace eso.
perdonen que sea molestosa okis.
Para eso juegas un poco con las funciones de manejo de strings:
nombre = Left(nombre, (Len(nombre) - 4))
GORKY TE AMOOOO !!!! :-* :-*
Con un jamon me basta. ;)
si pero si la extensión es de mas de 4 caracteres ¿?¿?.
lo mejor es buscar la ultimo "." del fichero y luego borralo de hay para atrás.
pero como hago eso haber explicame mas!!! plis
asi de facil:
Se supone que WarGhost es el nombre de un fichero y su extensión es .War, pues esto lo que hace es buscar el ultimo punto y devuelve el numero de caracteres que hay asta el punto pues luego hacemos un mid y decimos que lea solo hasta el ultimo punto ;).
Dim ruta As String
ruta = "WarGhost.War"
MsgBox Mid(ruta, 1, InStrRev(ruta, ".") - 1)
y así no importa cuantos lo larga que sea la extensión ;).
Interesante, yo soy una novata al lado de uds!!! gracias por ayudarme!!!, sencillamente me quede boquiabierta.
pero q pasa si la ruta tiene mas de un ".", por q lo hay.
ej: mi.archivo.de.algo.txt
en este caso habria q buscar el primer "." pero de derecha a izquierda
Cita de: Mr.Chispa en 14 Septiembre 2006, 17:33 PM
pero q pasa si la ruta tiene mas de un ".", por q lo hay.
ej: mi.archivo.de.algo.txt
en este caso habria q buscar el primer "." pero de derecha a izquierda
pruebalo si quieren pon:
Dim ruta As String
ruta = "mi.archivo.de.algo.txt"
MsgBox Mid(ruta, 1, InStrRev(ruta, ".") - 1)el resultado seria "mi.archivo.de.algo".
;D Salu2
ah, perdon, entenci mal, pense q era instr.
no la conocia esa funcion. gracias por el dato ;D