Problema con "MID"

[47]

Espero este bien formulada la pregunta

sino, favor d hacerla corregir ^^

bueno aqui yo nuevamente molestando a mis maestros del VB XD... bueno el problema q tngo es no se si de sintaxis, o algun pequeño error por estupido por mi remoto conocimiento de VB q voy adquiriendo d a poco, y me surgio un problema..

la duda esa la siguiente

Código:

NomFile = StrReverse(archivo0)
a = InStr(1, NomFile, "\", vbBinaryCompare)
NomFile = StrReverse(Mid(NomFile, a, Len(NomFile)))
Text1 = NomFile

he hay la base del problema, jeje explico, se supone q archivo0, equivale a una ruta q obtengo d un TXT, por ejemplo "C:\Carpeta\SubCarpeta\MiArchvio.doc"

bien funciona expectacular pero en la forma inversa, el resultado que me da es la ruta, o sea "C:\Carpeta\Subcarpeta\", pero lo que yo necesito es q me devuelva el nombre del archivo, es decir "MiArchivo.doc" (con o sin "\" da lo mismo xD)

me podrian ayudar por favor?? estaria muy agradecido,

d antemano gracias

47

[ranefi]

Hola 47. Aquí te dejo el código modificado, el problema estaba en cómo utilizabas Mid.

Agregar 1 control CommandButton, 1 Label e insertar el siguiente código en un...

Formulario

Código:

Private Sub Command1_Click()
    Dim Archivo0 As String, NomFile As String
    Dim A As Integer
   
    Archivo0 = "C:\temp\temp2\cacalandia\algomascochino.doc"
   
        NomFile = StrReverse(Archivo0)
   
    A = InStr(1, NomFile, "\", vbBinaryCompare)

        NomFile = StrReverse(Mid(NomFile, 1, (A - 1)))

    Label.Caption = NomFile
End Sub

La sintaxis de Mid es: Mid (Texto, LetraInicial, LongitudLetras). Te dejo un ejemplo de cómo se utiliza.

Agregar 1 control CommandButton e insertar el siguiente código en un...

Formulario

Código:

Private Sub Command1_Click()
    Me.Caption = Mid(Me.Caption, 5, 3)
End Sub

Private Sub Form_Load()
    Me.Caption = "CasiAno"
End Sub

Nos vemos.

[47]

muuuuuchisimas gracias Ranefi =)

cierra el post nomas  ^^

gracias por la aclaracion.... .

 grande maestro!! xD


47