Buenas tardes, uso visual studio 6.0

Hay un programa que utilizo en la empresa, que crea diariamente una carpeta en x ruta con la fecha + algunos dígitos.es decir: 15Jul_00 o 15jul_05, y es completamente impredecible el nombre con el que creara la carpeta.

Hasta ahora ya tengo como sacar la ultima fecha de modificación, pero de una carpeta q no cambia de nombre.

Me gustaría saber si hay manera de obtener la ultima carpeta creada dentro de una ruta, y de esta obtener su fecha de modificación.

lo que me eh planteado es algo así

a = ultima carpeta creada en la ruta x
sacar ultima fecha de modificación de a

Alguna recomendación o sugerencia

Hola ericka
Estamos hablando de carpetas o de archivos? La metodologia cambia un poco dependiendo si quieres obtener las carpetas o los archivos en una ruta especifica. Por otro lado, que sistema operativo utiliza el terminal donde esta instalado tu aplicativo? Y si es de archivos que estamos hablando, todos tienen la misma extension? Estan todos almacenados en la misma ruta? Para obtener la fecha de modificacion utilizas el objeto FileSystemObject?

Son carpetas, lo que me interesa saber es si esas carpetas se están actualizando en tiempo real, la situación esta así: hay una capeta llamada storage1 donde diariamente se crean 1 o a veces 2 carpetas con la fecha actual es decir:

\\storage1\15Agosto_15 lo q va despues del _ es variable
ó
\\storage1\15Agosto_2

Quiero saber cual fue la ultima carpeta creada dentro de storage1 y su ultima fecha de modificación, ya que deben actualizarse en tiempo real con archivos en su interior de la misma extensión. pero en realidad la información que necesito seria directamente de la carpeta 15Agosto_15

En este caso se me ocurre que podrias utilizar un while para recorrer cada una de las carpetas almacenadas en storage1 y durante el recorrido guardar la fecha de modificacion de cada carpeta en un array para luego resorrer el array buscando la ultima fecha de modificacion.
Podrias postear el codigo que estas utilizando para obtener la fecha de modificacion de cada carpeta? Estas utilizando FileSystemObject para lograrlo?
La verdad en este tema nunca he trabajado con carpetas, lo he hecho con archivos, pero hasta donde conozco las carpetas no guardan fecha de modificacion puesto que hay se supone existen varios archivos dentro de ellas y son los archivos los que se modifican, no los carpetas.
Sin embargo pasame la info que te solicito y vemos como podemos solucionarlo

Estoy usando
log1.Caption = FileDateTime("\\192.168.1.1\storage1\ aquí debería ir el nombre de la ultima creada")

lo que se me ocurre también es que si hay manera de identificar cual es la ultima carpeta credada, puedo hacer comparaciones sobre su volumen y así saber si estan "cayendo" los archivos que necesito

y pega el resultado en un cuadrito de texto.
tengo xp como s.o., y si le doy propiedades a la carpeta si me muestra la ultima fecha de modificación.

Ok, precisamente por eso preguntaba por el SO, WinXP si da fecha de modificacion, al contrario de WinVista Y Win7.
En ese caso, para recorrer cada una de las carpetas contenidas en tu ruta \\192.168.1.1\storage1\ puedes utilizar FileSystemObject e ir almacenando cada fecha de modificacion en un array para luego recorrer el array buscando la ultima fecha de modificacion.
Seria algo como esto:
Primero en tu proyecto debes agregar la referencia a Microsoft Scripting Runtime (sino no puedes utilizar el objeto FileSystemObject)

Código:

'declara el objeto FSO
Dim Fso As FileSystemObject
'declara la variable que contendra la ruta raiz
Dim Directorio As Folder
'inicializa el objeto FSO
Set Fso = New FileSystemObject
'almacena en la variable la direccion de la ruta raiz
Set Directorio = Fso.GetFolder("\\192.168.1.1\storage1")
Dim Subdirectorio As Folder
'declara el array para almacenar las fechas de los subdirectorios
Dim Fechas() as Date
'inicializa el array con la cantidad de subdirectorios
ReDim Fechas(Directorio.SubFolders.Count)
'contador para llevar la cantidad de subdirectorios
Dim Contador as Integer
Contador = 0
'recorre todos los subdirectorios contenidos en la ruta raiz
For Each Subdirectorio In Directorio.SubFolders
       'toma la fecha del subdirectorio (la almacena en el array)
       Fecha(Contador) = FileDateTime(Directorio.Path & "\" & Subdirectorio.Name)
       Contador = Contador + 1    'aumenta el contador
Next
'para almacenar la ultima fecha obtenida
Dim UltimaFecha as Date
'toam la primera fecha del array
UltimaFecha = Fecha(0)
Dim i as Integer
'recorre cada elemento dentro del array
For i = 1 to Contador - 1
      'si la fecha del siguiente elemento en el array es mayor a la utima fecha obtenida
      If Fecha(i) > UltimaFecha
            'toma el nuevo valor para ultima fecha
            UltimaFecha = Fecha(i)
     End If
Next
'por ultimo pinta la ultima fecha obtenida
log1.Caption = CStr(UltimaFecha)

Me parece que es la forma mas practica de lograrlo.
Por favor prueba de esta forma y nos cuentas los resultados.
Suerte!

Funciono excelente pero quedo así, solo que ahora me gustaría saber si existe algo similar o alguna modificación al mismo para que también me arroje el nombre de la carpeta.

RoyMata: de Vdd muchisimas gracias

Código PHP:

Private Sub Form_Load()
'declara el objeto FSO
Dim Fso As FileSystemObject
'declara la variable que contendra la ruta raiz
Dim Directorio As Folder
'inicializa el objeto FSO
Set Fso = New FileSystemObject
'almacena en la variable la direccion de la ruta raiz
Set Directorio = Fso.GetFolder("\\192.168.1.1\storage1")
Dim Subdirectorio As Folder
'declara el array para almacenar las fechas de los subdirectorios
Dim Fechas() As Date
'inicializa el array con la cantidad de subdirectorios
ReDim Fechas(Directorio.SubFolders.Count)
'contador para llevar la cantidad de subdirectorios
Dim Contador As Integer
Contador = 0
'recorre todos los subdirectorios contenidos en la ruta raiz
For Each Subdirectorio In Directorio.SubFolders
       'toma la fecha del subdirectorio (la almacena en el array)
       Fechas(Contador) = FileDateTime(Directorio.Path & "\" & Subdirectorio.Name)
       Contador = Contador + 1    'aumenta el contador
Next
'para almacenar la ultima fecha obtenida
Dim UltimaFecha As Date
'toam la primera fecha del array
UltimaFecha = Fechas(0)
Dim i As Integer
'recorre cada elemento dentro del array
For i = 1 To Contador - 1
      'si la fecha del siguiente elemento en el array es mayor a la utima fecha obtenida
      If Fechas(i) > UltimaFecha Then
            'toma el nuevo valor para ultima fecha
            UltimaFecha = Fechas(i)
     End If
Next
'por ultimo pinta la ultima fecha obtenida
log1.Caption = CStr(UltimaFecha)
End Sub 


Ya tienes declarada una variable llamada Subdirectorio del tipo Folder. Para obtener el nombre de la carpeta solo utiliza la propiedad Name:

Código:

Dim NombreCarpeta as String
NombreCarpeta = Subdirectorio.Name

Hola Roy, intente ya pero me arroja el nombre de una carpeta que no la misma a la que le saca la fecha, supongo que hace falta algún contador??? bueno ademas arme el código así, con lo que me mandaste xq de otra manera mandaba error

Código:

Private Sub Form_Load()
'declara el objeto FSO
Dim Fso As FileSystemObject
'declara la variable que contendra la ruta raiz
Dim Directorio As Folder
'inicializa el objeto FSO
Set Fso = New FileSystemObject
'almacena en la variable la direccion de la ruta raiz
Set Directorio = Fso.GetFolder("\\172.18.86.44\d$\compartida")
Dim Subdirectorio As Folder
'declara el array para almacenar las fechas de los subdirectorios
Dim Fechas() As Date
'inicializa el array con la cantidad de subdirectorios
ReDim Fechas(Directorio.SubFolders.Count)
'contador para llevar la cantidad de subdirectorios
Dim Contador As Integer
Contador = 0
Dim NombreCarpeta As String

'recorre todos los subdirectorios contenidos en la ruta raiz
For Each Subdirectorio In Directorio.SubFolders
       'toma la fecha del subdirectorio (la almacena en el array)
       Fechas(Contador) = FileDateTime(Directorio.Path & "\" & Subdirectorio.Name)
       Contador = Contador + 1    'aumenta el contador
       NombreCarpeta = Subdirectorio.Name
Next
'para almacenar la ultima fecha obtenida
Dim UltimaFecha As Date
'toam la primera fecha del array
UltimaFecha = Fechas(0)
Dim i As Integer


'recorre cada elemento dentro del array
For i = 1 To Contador - 1
      'si la fecha del siguiente elemento en el array es mayor a la utima fecha obtenida
      If Fechas(i) > UltimaFecha Then
            'toma el nuevo valor para ultima fecha
            UltimaFecha = Fechas(i)
            
            
     End If
Next

Si el nombre del subdirectorio que quieres recuperar es el de la carpeta con la ultima fecha se complica un poco la situacion.
Se me ocurre crear un segundo array en donde almacenes los nombres de todas las carpetas. El contador ya lo tienes declarado y cargado en el segundo bucle, entonces solo tendrias que cargar la variable NombreCarpeta desde el segundo array y utilizando el mismo contador cuando encuentres la ultima fecha.
Algo asi:
(no voy a repetir todo el codigo de nuevo, solamente lo que nos interesa modificar)

Código:

'agregar estas 2 lineas antes de iniciar el primer bucle:
Dim Archivos() as String
ReDim Archivos(Directorio.SubFolders.Count)
 
For Each Subdirectorio In Directorio.SubFolders
     'aqui el mismo codigo tal como lo tenemos inicialmente para este bucle
     'solamente la ultima linea: NombreCarpeta = Subdirectorio.Name la sustituyes por esto:
     Archivos(Contador) = Subdirectorio.Name
Next
 
'y en el segundo bucle:
'(todo el codigo igual como lo teniamos, solo agregar la linea antes de cerrar el If
For i = 1 To Contador - 1
      'si la fecha del siguiente elemento en el array es mayor a la utima fecha obtenida
      If Fechas(i) > UltimaFecha Then
            'toma el nuevo valor para ultima fecha
            UltimaFecha = Fechas(i)
            'esta que sigue es la linea nueva (la unica que tendrias que agregar)
            NombreCarpeta = Archivos(i)
     End If
Next

Suerte

Hola Roy!

Por carga de trabajo aun no he podido hacer pruebas, pero espero realizarlas este fin de semana y para dar por cerrado el tema! gracias!

Hola Roy, hasta apenas puedo volver a trabajar en mi proyecto,

Pero estoy confundida, me comentas que crear un segundo array, entonces seria otro form?? agrego las lineas que me compartes?? o tengo q eliminar del codigo lo que me daba la fecha y sustituir x nombre?

Perdón, pero lo deje tanto tiempo que tengo mil dudas ya

Hola de nuevo ericka.
Un array es un arreglo (o una matriz), es decir, una variable multidimensional en donde puedes alojar temporalmente varios valores a la vez.
Ya estabamos utilizando un array llamado fechas() para almacenar las fechas de cada carpeta. Ahora la idea es crear un segundo array para almacenar los subdirectorios.
Solamente agrega este nuevo codigo que puse en el anterior post y el resto puedes mantenerlo igual.
Suerte con eso ericka!!!!!
Saludos

Gracias Roy, la buena noticia es que ya corre sin errores la mala es q tengo duda sobre como hacer q muestre la info en la label, segun yo ya le agregue pero me sale vacio

Código:

Private Sub Form_Load()
'declara el objeto FSO
Dim Fso As FileSystemObject
'declara la variable que contendra la ruta raiz
Dim Directorio As Folder
'inicializa el objeto FSO
Set Fso = New FileSystemObject
'almacena en la variable la direccion de la ruta raiz
Set Directorio = Fso.GetFolder("\\172.18.86.231\grabanice\ATMET_SC1.atmetepec.atentomx.com\ATMETLOG2_SR_30382503")
Dim Subdirectorio As Folder
'declara el array para almacenar las fechas de los subdirectorios
Dim Fechas() As Date
Dim Archivos() As String
'inicializa el array con la cantidad de subdirectorios
ReDim Fechas(Directorio.SubFolders.Count)
ReDim Archivos(Directorio.SubFolders.Count)
'contador para llevar la cantidad de subdirectorios
Dim Contador As Integer
Contador = 0
'recorre todos los subdirectorios contenidos en la ruta raiz
For Each Subdirectorio In Directorio.SubFolders
'For Each Subdirectorio In Directorio.SubFolders
       'toma la fecha del subdirectorio (la almacena en el array)
       Fechas(Contador) = FileDateTime(Directorio.Path & "\" & Subdirectorio.Name)
       Contador = Contador + 1    'aumenta el contador
       Archivos(Contador) = Subdirectorio.Name
       Next

'para almacenar la ultima fecha obtenida
Dim UltimaFecha As Date
'toam la primera fecha del array
UltimaFecha = Fechas(0)
Dim i As Integer
'recorre cada elemento dentro del array
For i = 1 To Contador - 1
'For i = 1 To Contador - 1
      'si la fecha del siguiente elemento en el array es mayor a la utima fecha obtenida
      If Fechas(i) > UltimaFecha Then
            'toma el nuevo valor para ultima fecha
            UltimaFecha = Fechas(i)
             If Fechas(i) > UltimaFecha Then
             UltimaFecha = Fechas(i)
             NombreCarpeta = Archivos(i)
             End If
             
     End If
Next
'por ultimo pinta la ultima fecha obtenida
log1.Caption = CStr(UltimaFecha)
log2.Caption = CStr(NombreCarpeta)
End Sub

Recuerda que ese codigo lo estas cargando en el evento Load de tu formulario. Esto quiere decir que es el primer proceso que se ejecuta al cargar el form, el form todavia no ha terminado de pintarse en pantalla cuando esto se ejecuta, es por eso que los labels te aparecen vacios. Solo agrega esto:

Código:

log1.Caption = CStr(UltimaFecha)
log2.Caption = CStr(NombreCarpeta)
log1.Refresh
log2.Refresh

Con el metodo Refresh del label logras que el Caption, asi como las propiedades de Font, ForeColor y BackColor se refresquen

Hola Roy, la fecha si me aparece, pero el nombre de la carpeta aun no, estoy revisando la parte del array y q coincida el nombre

Código:

Private Sub Form_Load()

Dim Fso As FileSystemObject
Dim Directorio As Folder
Set Fso = New FileSystemObject
Set Directorio = Fso.GetFolder("\\192.1.1.1\storage")
Dim Subdirectorio As Folder
Dim Fechas() As Date
ReDim Fechas(Directorio.SubFolders.Count)
Dim Contador As Integer
Contador = 0

For Each Subdirectorio In Directorio.SubFolders
       'toma la fecha del subdirectorio (la almacena en el array)
       Fechas(Contador) = FileDateTime(Directorio.Path & "\" & Subdirectorio.Name)
       Contador = Contador + 1    'aumenta el contador
Next
'para almacenar la ultima fecha obtenida
Dim UltimaFecha As Date
'toam la primera fecha del array
UltimaFecha = Fechas(0)
Dim i As Integer
'recorre cada elemento dentro del array
For i = 1 To Contador - 1
      'si la fecha del siguiente elemento en el array es mayor a la utima fecha obtenida
      If Fechas(i) > UltimaFecha Then
            'toma el nuevo valor para ultima fecha
            UltimaFecha = Fechas(i)
     End If
Next
'por ultimo pinta la ultima fecha obtenida
log1.Caption = CStr(UltimaFecha)
log2.Caption = CStr(NombreCarpeta)
log1.Refresh
log2.Refresh

End Sub

Lo que estas intentando mostrar en log2.Caption es el contenido de la variable NombreCarpeta. Pero esa variable no la declaras ni la inicializas en ninguna parte de tu codigo. Eso provoca que la variable venga vacia cuando la utilizas, a pesar de que le hayas cargado un valor.
Antes de asignarle un valor a NombreCarpeta declarala e inicializala:

Código:

Dim NombreCarpeta as String
NombreCarpeta = ""