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.

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

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.

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.

Saludos.