Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: R@MI en Marzo 08, 2011, 09:09:15 pm
-
Y, bue, queria nomas preguntarles eso.
yo creia que usando la función right (o algo así) se podia, pero solo sirve para archivos que uno sabe cuantos caracteres tiene una aplicación, pero ay de muchas losgitudes distintas (.application, .manifest, .db, .vbg, .etc )
bueno, esa es mi duda ;)
R@@@@@@@@@@@@@@@@@MI 8)
-
algo asi es lo que buscas???
Option Explicit
Dim miRuta As String
Dim miExt As String
Private Sub Form_Load()
miRuta = "C:\miarchivo.txt"
miExt = ExtraerExtencion(miRuta)
MsgBox miExt
miRuta = "C:\otroarchivo.db"
miExt = ExtraerExtencion(miRuta)
MsgBox miExt
End Sub
Private Function ExtraerExtencion(Ruta As String) As String
ExtraerExtencion = Right$(Ruta, (Len(Ruta) - InStrRev(Ruta, ".")))
End Function
-
Private Sub Command1_Click()
Dim Archivo As String, Extension As String
Archivo = "c:\windows\calc.exe"
Extension = Mid(Archivo, InStr(Archivo, ".") + 1)
MsgBox Extension
End Sub
-
creo que ese codigo podria dar errores en algunos casos :o
yo uso algo como esto :
Dim a() As String
Dim ext As String
a = Split ("C:\test.txt")
ext = "." & a(UBound(a))
MsgBox ext
-
Hola, para gustos colores, personalmente pienso y de hecho así lo utilizo desde hace tiempo que esta función es mas 'fiable' ya que antes de nada comprueba si el archivo tiene extensión y después devuelve la que sigue al último punto (.)
Private Function Extension(NombreArchivo As String) As String
If InStr(NombreArchivo, ".") Then
Extension = Mid$(NombreArchivo, InStrRev(NombreArchivo, ".") + 1)
End If
End Function
Saludos
-
busca un poco, tenes miles de paginas donde dice como hacerlo:
Extraer de una ruta la extensión de un archivo, el nombre y reemplazar extensiones (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/226-extraer-extension-de-path.htm)