Filenames y text box

[Erika Vega]

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???

[Mr.Chispa]

Código [Seleccionar] Expandir


CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileTitle

facil, no?

[Gorky]

Y si no es de un CommonDialog, en general puedes hacerlo con la Api GetFileTitle. Aqui te dejo un ejemplo:

Código [Seleccionar] Expandir

    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


[Erika Vega]

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.

[Gorky]

Para eso juegas un poco con las funciones de manejo de strings:

Código [Seleccionar] Expandir

nombre = Left(nombre, (Len(nombre) - 4))


[Erika Vega]

GORKY TE AMOOOO !!!!

[Gorky]

Con un jamon me basta. 

[WarGhost]

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.

[Erika Vega]

pero como hago eso haber explicame mas!!! plis

[WarGhost]

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 .

Código [Seleccionar] Expandir

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 .