Apertura de archivos dudas...

[SeNdEr2003]

Buenas

Necesito que mi aplicacion pueda abrir unos archivos, eso lo hago con el OPEN pero el tema es que no se la ruta ni el nombre del mismo, porque este viene cada 10 minutos y va cambiando el nombre de la ruta y archivo, se que por ejemplo va a caer en c:\entrada\archivo2432\45323.dat luego por ejemplo llega uno nuevo como en c:\entrada\archivo2433\45324.dat

Alguna idea?, alguien sabe como se hace?

[David]

Iniciado por SeNdEr2003

Buenas

Necesito que mi aplicacion pueda abrir unos archivos, eso lo hago con el OPEN pero el tema es que no se la ruta ni el nombre del mismo, porque este viene cada 10 minutos y va cambiando el nombre de la ruta y archivo, se que por ejemplo va a caer en c:\entrada\archivo2432\45323.dat luego por ejemplo llega uno nuevo como en c:\entrada\archivo2433\45324.dat

Alguna idea?, alguien sabe como se hace?

Bueno, la única idea que se me ocurre es que pregunte al usuario dónde está el archivo, para así poder abrirlo (una buena opción sería mostrar el Diálogo Abrir).

[Txoco]

Hola!

Si la ubicación del fichero va a ser siempre la misma, puedes hacer un bucle con la función Dir(), ir comprobando por fecha cuales han sido los últimos directorios o ficheros creados, y compararlos con el último cargado.

Otra opción mejor, pero más complicada, es utilizar la función API ReadDirectoryChangesW para que nos "vigile" esa rama del árbol y notifique cada vez que detecta la creación de un fichero. En la dirección http://www.planet-source-code.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!61052/lngWid!1/anyname.htm tienes un ejemplo que puedes adaptar.

[SeNdEr2003]

gracias, el tema es que siempre crea un directorio y archivo nuevo...

[Txoco]

La API ReadDirectoryChangesW te puede ayudar en ese caso, ya que te devuelve el nombre de lo que se haya creado, con su ruta completa, en el momento en que el sistema detecte la creación, por lo que te ahorras todas las comprobaciones.

Otra opción que no te había comentado antes es utilizar el objeto FileSystemObject así:

Código:

    Set UltimaCarpeta = Nothing
    Set UltimoFichero = Nothing

' Busca la carpeta más recientemente creada
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("c:\entrada")
    Set sf = f.SubFolders
    For Each f1 In sf
        If UltimaCarpeta Is Nothing Then
            Set UltimaCarpeta = f1
        Else
            If f1.DateCreated > UltimaCarpeta.DateCreated Then
                Set UltimaCarpeta = f1
            End If
        End If
        DoEvents
    Next

' Busca el fichero más recientemente creado
    Set f = fs.GetFolder(UltimaCarpeta.Path)
    Set fc = f.Files
    For Each f1 In fc
        If UltimoFichero Is Nothing Then
            Set Ultimo Fichero = f1
        Else
            If f1.DateCreated > UltimoFichero.DateCreated Then
                Set UltimoFichero = f1
            End If
            DoEvents
        End If
    Next

Puedes declarar todas las variables necesarias como Object. Al terminar este código, puedes utilizar las siguientes propiedades de UltimoFichero:

.Attributes (máscara de atributos del fichero)
.DateCreated (fecha de creación)
.DateLastAccessed (fecha de último acceso)
.DateLastModified (fecha de última modificación)
.Drive (letra de la unidad)
.Name (nombre del fichero)
.ParentFolder (objeto Folder en que se encuentra el fichero)
.Path (ruta del fichero, incluye el nombre)
.ShortName (nombre en formato corto)
.ShortPath (ruta completa en formato corto, incluye el nombre del fichero)
.Size (tamaño en bytes)
.Type (descripción asignada a la extensión, si la tiene)

No he probado el código tal cual te lo he escrito aquí, pero no debería darte problemas. Ten en cuenta también que sólo vale para el último fichero; si por cualquier razón necesitases acceder a los dos o tres últimos, o a todos los creados en la carpeta más nueva, tendrías que hacer varias modificaciones.

Ya nos cuentas!