Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Leer El Nombre De Un Archivo En Directorio [Solucionado]
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Leer El Nombre De Un Archivo En Directorio [Solucionado] 
 
Buenas tardes a todos,
me gustaría al pulsar un botón poder leer un archivo de extensión *.xlsx que tengo que convertir y que gracias a vuestra ayuda ya tengo encaminado y finalizado. Ahora bien, este archivo será generado por el usuario y se depositará en una carpeta la cual al pulsar el botón y como primera fase del algoritmo, tiene que leer el nombre del archivo, para una vez leído y procesado (dejado en persistencia) deberá ser borrado del sistema.

Bien el tema es el siguiente, cómo puedo hacer para que me lea el nombre del archivo con extensión y todo y poder almacenar dicho nombre en una variable mía.


Saludos y mil gracias.
 



 
última edición por calcena el Jueves, 03 Octobre 2019, 22:17; editado 1 vez 
calcena - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Leer El Nombre De Un Archivo En Directorio 
 
calcena escribió:  

Bien el tema es el siguiente, cómo puedo hacer para que me lea el nombre del archivo con extensión y todo y poder almacenar dicho nombre en una variable mía.


Suponiendo que sabes donde buscas y que la carpeta esta vacía y solo esta tu archivo:

sNombreArchivoConExtension = File.Name(rutaYNombreArchivoYExtension)

Esto hago yo para recuperar todos los archivo CSV en un caso con todo tipo de archivo en una carpeta en concreto:
   For Each sArchivo In Dir(sCarpeta, "*.csv", gb.File)
      sRutaArchivoCSV.Add(sCarpeta &/ sArchivo)
   Next
   For n = 0 To sRutaArchivoCSV.Max
      sNombreCSV = File.Name(sRutaArchivoCSV[n]) ' Nombre con extensión
      ' aquí lo puedes filtrar con un IF
   Next
 



 
última edición por gambafeliz el Jueves, 03 Octobre 2019, 21:48; editado 2 veces 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Leer El Nombre De Un Archivo En Directorio 
 
gambafeliz escribió: [Ver mensaje]
calcena escribió: [Ver mensaje]

Bien el tema es el siguiente, cómo puedo hacer para que me lea el nombre del archivo con extensión y todo y poder almacenar dicho nombre en una variable mía.


Suponiendo que sabes donde buscas y que la carpeta esta vacía y solo esta tu archivo:

sNombreArchivoConExtension = File.Name(rutaYNombreArchivoYExtension)

Esto hago yo para recuperar todos los archivo CSV en un caso con todo tipo de archivo en una carpeta en concreto:
   For Each sArchivo In Dir(sCarpeta, "*.csv", gb.File)
      sRutaArchivoCSV.Add(sCarpeta &/ sArchivo)
   Next
   For n = 0 To sRutaArchivoCSV.Max
      sNombreCSV = File.Name(sRutaArchivoCSV[n]) ' Nombre con extensión
      ' aquí lo puedes filtrar con un IF
   Next



Fantástico compañero :

   For Each sArchivo In Dir(sCarpeta, "*.csv", gb.File)
      sRutaArchivoCSV.Add(sCarpeta &/ sArchivo)
   Next

Esto me ha funcionado perfectamente, muchas gracias.
 



 
calcena - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Leer El Nombre De Un Archivo En Directorio [Solucionado] 
 
Hola, yo suelo usar esta función que ademas permite seleccionar varios tipos de extension y puede, si se lo indica, buscar de forma recursiva en directorios que penden del que se pasa como parámetro.
Public Function RListFiles(strPath As String, Optional stxExt As String[], Optional bolRec As Boolean) As String[] ''Devuelve una lista de archivos que se encuentran en la ruta que se pasa como parametro.

  Dim stxTmp As New String[]
  Dim stxFiles As New String[]
  Dim strFile As String
  Dim strExt As String

  stxTmp.Clear
  stxFiles.Clear

  strPath = ArrangePath(strPath)

  Select Stat(strPath).Type
    Case gb.File
      strPath = File.Dir(strPath)
  End Select

  If stxExt <> Null Then
    Select stxExt.Count
      Case 0
        If bolRec = True Then
          stxTmp.Insert(RDir(strPath, "*.*"))
        Else
          stxTmp.Insert(Dir(strPath, "*.*", gb.File))
        Endif

      Case Else
        For Each strExt In stxExt
          If bolRec = True Then
            stxTmp.Insert(RDir(strPath, "*." & strExt))
          Else
            stxTmp.Insert(Dir(strPath, "*." & strExt, gb.File))
          Endif
        Next

    End Select
  Else

    If bolRec = True Then
      stxTmp.Insert(RDir(strPath, "*.*"))
    Else
      stxTmp.Insert(Dir(strPath, "*.*", gb.File))
    Endif
  Endif

  For Each strFile In stxTmp
    Select Stat(strPath &/ strFile).Type
      Case gb.File
        stxFiles.Add(strPath &/ strFile)
    End Select
  Next

  Return stxFiles

End
 

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes El Archivo O Directorio No Existe[Resuelto] v3ctor General 10 Domingo, 08 Junio 2014, 16:14 Ver último mensaje
v3ctor
No hay nuevos mensajes Se Puede Leer Una Linea Especifica De Un A... v3ctor General 23 Sabado, 06 Diciembre 2014, 21:25 Ver último mensaje
shordi
No hay nuevos mensajes Gestores De Archivos. Mostrar Directorio O... Shell Mundo Linux 0 Martes, 20 Septiembre 2016, 14:42 Ver último mensaje
Shell
No hay nuevos mensajes Recuperar Un Archivo De Una Ruta Sabiendo ... gambafeliz General 11 Miercoles, 25 Septiembre 2019, 10:46 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario