Extraer un texto

[elplasti]

Hola !!!

Podrian ayuidarme con lo siguiente
requiero una rutina para extrar nombres de archivos de un path...
por ejemplo

M:\Hp\respaldo\My Shared Folder\satie erik - gymnopedie no 1.wma

el nombre de archivo es
satie erik - gymnopedie no 1.wma

eso es lo que requiero que me extraiga la rutina.

el programa debera tener 2 textbox y un commandbutton

el primer textbox es para agregar el path completo
el commandbutton es para ejecutar la rutina (dentro de el debera estar la programacion)
y el segundo textbox es para mostrar el nombre de archivo


gracias !!!

[pana99]

Hola. ACa te paso un codigo que lista todos los archivos de un directorio.
Luego por favor, adecualo a tu necesidad, pero esto te resuleve lo central.
Espero te sirva

Código:

'---------------------------------------------------
    'Agregar lña referencia a Microsoft Scripting Runtime
'---------------------------------------------------

Private Sub Command1_Click()

    Dim Fso As FileSystemObject
    Dim El_Directorio As Folder
    
    Set Fso = New FileSystemObject
    Set El_Directorio = Fso.GetFolder("c:\")
       
   ' Comienza a listar las carpetas
    Call Listar_Archivos(El_Directorio)
End Sub

Private Sub Listar_Archivos(ByVal El_Directorio As Folder)

    'Variable de tipo FILE y FOLDER para listar los archivos de un path
    Dim El_Archivo As File
    

    Set Fso = New FileSystemObject
    
    ' Obtiene el directorio
    Set El_Directorio = El_Directorio
    
    
    ' Lista los ficheros de esta carpeta
    For Each El_Archivo In El_Directorio.Files
       'Añade la ruta
       Debug.Print El_Archivo.Name
        
    Next El_Archivo

End Sub

[pkj]

Otra opción:

Código vb:

Function ExtraeNombre(Fichero As String) As String
  If InStrRev(Fichero, "\") Then
    ExtraeNombre = Mid$(Fichero, InStrRev(Fichero, "\") + 1)
  ElseIf InStr(1, Fichero, ":") Then
    ExtraeNombre = Mid$(Fichero, InStr(1, Fichero, ":") + 1)
  Else
    ExtraeNombre = Fichero
  End If
End Function