Sección de códigos , trucos y ejemplos para visual basic

226 - Extraer de una ruta la extensión de un archivo, el nombre y reemplazar extensiones

Contenido de la página

Extraer extensión y archivo de una ruta con la función InstrRev
Extraer solo la ruta, pero sin el archivo
Simple función para cambiar la extensión de un archivo
Notas
Enlaces relacionados

Extraer de un ruta la extensión o el nombre de archivo

Este ejemplo para realizar lo dicho, utiliza la función InstrRev, y permite obtener la extensión de un path, Por ejemplo : Teniendo c:\archivo.zip, la función devuelve .ZIP

También el nombre del archivo, Por ejemplo : Teniendo c:\carpeta\readme.txt, devuelve readme.txt

Código fuente en un Formulario:

Option Explicit Function Extraer(Path As String, Caracter As String) As String Dim ret As String If Caracter = "." And InStr(Path, Caracter) = 0 Then Exit Function ret = Right(Path, Len(Path) - InStrRev(Path, Caracter)) ' -- Retorna el valor Extraer = ret End Function Private Sub Form_Load() ' -- Extrae la extensión del archivo MsgBox Extraer("c:\windows\explorer.exe", "."), vbInformation ' -- Extrae el nombre del archivo del path MsgBox Extraer("c:\windows\explorer.exe", "\"), vbInformation End Sub

Extraer la ruta sin el archivo

Este otro ejemplo es similar pero en ves de usar la función Right utiliza la función Left, para poder obtener solo el directorio sin el fichero. Por ejemplo teniendo : c:\windows\sistem32\archivo.dll, la función retorna : c:\windows\sistem32 , o en el caso de una dirección URL, por ejemplo teniendo : Http://unaweb.com/carpeta/index.php, la misma retornará : Http://unaweb.com/carpeta/

En el primer caso es para una dirección URL y se le indica la barra / , y el segundo para una ruta local indicando la barra \

Option Explicit Private Sub Form_Load() ' -- Url MsgBox getPath("http://dominio.com/directorio/archivo.html", "/") ' -- Ruta MsgBox getPath("c:\Archivos de programa\carpeta\archivo.txt", "\") End Sub ' \\ -- Extraer solo la ruta sin el archivo mediante la función Left e InstrRev Function getPath(sPath As String, Caracter As String) As String If sPath <> "" And Caracter <> "" Then getPath = Left(sPath, InStrRev(sPath, Caracter)) End If End Function

Ejemplo para cambiar la extensión de un archivo

A la función, se le debe pasar como parámetro, la ruta del fichero a renombrar, y en el segundo parámetro, la nueva extensión, por ejemplo :

ChangeExtension ("c:\archivo.txt","Dat")

Código fuente de la función en un formulario con un CommandButton

Option Explicit ' -- declaraciones de funciones Private Declare Function PathFindExtension Lib "shlwapi" Alias "PathFindExtensionA" (ByVal pPath As String) As Long Private Declare Function lstrcpyA Lib "kernel32" (ByVal RetVal As String, ByVal Ptr As Long) As Long Private Declare Function lstrlenA Lib "kernel32" (ByVal Ptr As Any) As Long ' ---------------------------------------------------------------------- ' -- Función de ajuste para usar con PathFindExtension ' ---------------------------------------------------------------------- Function GetExtension(ByVal sPath As String) As String Dim sTemp As String 'Given a path and filename, return only the filename extension. sTemp = pvGetStrFromPtrA(PathFindExtension(sPath)) If Len(sTemp) Then GetExtension = Replace(sTemp, ".", vbNullString) End Function ' ---------------------------------------------------------------------------------- ' \\ -- Devuelve un string desde un puntero ' ---------------------------------------------------------------------------------- Private Function pvGetStrFromPtrA(ByVal lpszA As Long) As String 'Given a pointer to a string, return the string pvGetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0) Call lstrcpyA(ByVal pvGetStrFromPtrA, ByVal lpszA) End Function ' recibe el path del fichero y la nueva extensión ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function ChangeExtension(ByVal sFileName As String, ByVal sNewExt As String) As String Dim sExt As String Dim sExt2 As String sExt = GetExtension(sFileName) If Len(sExt) = 0 Then Exit Function sExt = "." & sExt If Left(sNewExt, 1) <> "." Then sNewExt = "." & sNewExt ChangeExtension = Replace(sFileName, sExt, sNewExt) End Function Private Sub Command1_Click() MsgBox ChangeExtension("c:\archivo.log", "txt") MsgBox ChangeExtension("c:\autoexec.bat", "temp") End Sub

Notas

Nota. En este enlace hay un código de ejemplo pero utilizando la función PathFindExtension de la Api de windows. ( Esta función sirve para extraer la extensión -- Creo si mal no recuerdo, que la he extraido desde un programa descargado de la web VB Accelerator ).

Otra función, que se puede utilizar para reemplazar este ejemplo, es mediante la Api GetFileTitle

También, algunas librerías de windows contienen muchas funciones para trabajar con paths, directorios, archivos, Urls etc ... Una buena opción es mirar los ejemplos que contiene la base de datos Api guide, y por supuesto buscar en internet. Su uso en la mayoría de los casos es simple ( por si te asustan el uso de las apis ), ya que solo se ejecutan las funciones pasando un Buffer ( Variable de retorno ), para obtener el resultado, es decir no requieren prácticmante código ni conocimientos avanzados para poder implementarlas.

Nota. Para buscar las apis, o por lo menos la mayoría de las relacionadas a rutas, puedes utilizar el buscador del programa para hacerlo rápidamente, por ejemplo buscar con las palabras claves Path, File, Url, Extension etc

Recursos vb.Net - Enlaces relacionados

Ejemplos varios para trabajar con archivos y carpetas en vb.net

Buscar en Recursos vb