07/03/2009, 13:55
|
 | | | Fecha de Ingreso: febrero-2007 Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 17 años, 4 meses Puntos: 19 | |
| Respuesta: Cargar archivos de una carpeta en un List1
Código vb:
Ver originalPrivate Sub Dir1_Change() MsgBox NombreCarpeta(Dir1.Path) End Sub Function NombreCarpeta(Path As String) As String Dim Nombre As String Nombre = Right(Path, Len(Path) - InStrRev(Path, "\")) NombreCarpeta = Nombre End Function
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein |