Visual Basic - ayuda,es urgente

Life is soft - evento anual de software empresarial
 
Vista:

ayuda,es urgente

Publicado por matias (3 intervenciones) el 01/12/2001 00:33:00
el usuario me tiene que poner unas direcciones de archivos y yo tengo que hacer un codigo que me permita sacar el nombre del archivo con su respectivo formato
por ejemplo, el usuario introduce :
C:\Carpeta1\Carpetados\Archivo.txt <-- tengo que obtener : archivo.txt
C:\nose\queseyo\vosmeentedes\jejeje.jpg <tengo que obtener : jejeje.jpg
y asi muchos
desearia mucho que me puedan ayudar
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda,es urgente

Publicado por maCo (3 intervenciones) el 01/12/2001 05:49:53
puedes hacer una pequena function simpl como esta
pones un boton una caja de texto

Private Sub Command1_Click()
MsgBox Buscar(Text1.Text)
End Sub

Function Buscar(Path As String) As String
Dim Final As Integer

Final = InStrRev(Path, "\", , vbTextCompare)
If Final <> 0 Then
Buscar = Mid$(Path, Final + 1)
Else
Buscar = "No Introdujo El Archivo"
End If
End Function

maCo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar