sacar nombre de archivo y extension del archivo de una ruta

08/05/2007 - 19:24 por daniel | Informe spam
Hola a todos
como se podria hacer para poder sacar de una ruta
Ej. C:\Documents and Settings\DANIEL\Mis documentos\0DANIEL\objetos.xls
el nombre del archivo que en este caso seria objetos y la extension que en
este caso seria .xls
y me lo muestre en un msgbox


un saludo y muchas gracias
daniel

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
09/05/2007 - 07:56 | Informe spam
hola, daniel !

Mostrar la cita
en lo que regresa KL...
asumiendo que el nombre de tus archivos NO contendrian algun 'punto' entre el nombre y la EXTansion -?-
podrias basar la busqueda a traves del punto que separa el nombre de la extension :))

siguen ejemplos para lo solicitado [la EXTension]
incluso, almacenando resultados en variables [por si fueran de utilidad a otras partes del codigo]

Sub Extension()
MsgBox CreateObject("Scripting.FileSystemObject").GetExtensionName( _
"C:\Documents and Settings\DANIEL\Mis documentos\0DANIEL\objetos.xls")
End Sub

Sub Nombre_Ext_Tipo()
Dim Base As String, Archivo As String, Nombre As String, Ext As String, Tipo As String
Base = "C:\Documents and Settings\DANIEL\Mis documentos\0DANIEL\objetos.xls"
Archivo = Dir(Base): If Archivo = "" Then Exit Sub
Nombre = Left(Archivo, InStr(Archivo, ".") - 1)
Ext = Mid(Archivo, InStr(Archivo, "."))
Tipo = CreateObject("Scripting.FileSystemObject").GetFile(Base).Type
MsgBox "El nombre: " & Nombre & vbCr & _
"Extension: " & Ext & vbCr & _
"es de tipo: " & Tipo, , ""
End Sub

saludos,
hector.

__ las consultas anteriores __
Mostrar la cita
#2 daniel
09/05/2007 - 15:09 | Informe spam
Hola Hector Miguel
muchisimas gracias funciona perfectamente


un saludo


"Héctor Miguel" escribió en el mensaje
news:%
Mostrar la cita
Ads by Google
Search Busqueda sugerida