sacar nombre de archivo y extension del archivo de una ruta

hola, daniel !

me podias pasar un codigo que solo me diese la extension
es que los que me as dado me dan las dos cosas el nombre de archivo y la extension
y yo lo que quiero es solo la extension

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 __

KL escribio en elmesaje ...
Opcion1: Si el archivo existe en el en la ruta:

Sub test1()
Dim txt As String
txt = "C:\Documents and Settings\DANIEL\Mis documentos\0DANIEL\objetos.xls"
MsgBox Dir(txt)
End Sub

Opcion2: XL2000+

Sub test2()
Dim txt As String
txt = "C:\Documents and Settings\DANIEL\Mis documentos\0DANIEL\objetos.xls"
MsgBox Right(txt, Len(txt) - InStrRev(txt, "\"))
End Sub

Opcion2: XL2000+

Sub test3()
Dim txt As String, arrTemp As Variant
txt = "C:\Documents and Settings\DANIEL\Mis documentos\0DANIEL\objetos.xls"
arrTemp = Split(txt, "\")
MsgBox arrTemp(UBound(arrTemp))
End Sub

etc.

Saludos,
KL

daniel escribio en el mensaje ...
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

Hola Hector Miguel
muchisimas gracias funciona perfectamente


un saludo


"Héctor Miguel" escribió en el mensaje
news:%

hola, daniel !

me podias pasar un codigo que solo me diese la extension
es que los que me as dado me dan las dos cosas el nombre de archivo y la
extension
y yo lo que quiero es solo la extension

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 __

KL escribio en elmesaje ...
Opcion1: Si el archivo existe en el en la ruta:

Sub test1()
Dim txt As String
txt = "C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\objetos.xls"
MsgBox Dir(txt)
End Sub

Opcion2: XL2000+

Sub test2()
Dim txt As String
txt = "C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\objetos.xls"
MsgBox Right(txt, Len(txt) - InStrRev(txt, "\"))
End Sub

Opcion2: XL2000+

Sub test3()
Dim txt As String, arrTemp As Variant
txt = "C:\Documents and Settings\DANIEL\Mis
documentos\0DANIEL\objetos.xls"
arrTemp = Split(txt, "\")
MsgBox arrTemp(UBound(arrTemp))
End Sub

etc.

Saludos,
KL

daniel escribio en el mensaje ...
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