Hola, estoy haciendo un programa que guarda imagenes a un directorio, este directorio tiene un grupo de imagenes en directorios ordenados de forma numérica, por ejemplo:
imagenes/grupo1
imagenes/grupo2
imagenes/grupo3
imagenes/grupo4
etc..
el problema es que como puedo saber cual directorio corresponde después del último creado sabiendo que alguien puede modificar el nombre de algún directorio por x motivo imposibilitando utilizar las propiedades nativas de creación del directorio y evitando que el directorio 10 quede primero que el 1 y sabiendo que pueden haber directorios eliminados por lo tanto puede haber directorio 2, directorio 5, etc.
Como podría hacerlo?
Ya obtube todos los directorios de la ruta con una función que hize:
Archivos.bas
Public Function Obtener_Directorios(Ruta As String) As Variant
Dim Directorio As String
On Error Resume Next
Directorio = Dir(Ruta, vbDirectory)
While Directorio <> ""
Directorio = Dir
If Is_Dir(Ruta & Directorio) Then
Obtener_Directorios = Obtener_Directorios & Directorio & ","
End If
Wend
Obtener_Directorios = Split(Obtener_Directorios, ",")
End Function
Pero ahora no se como ordenarlos de forma alfabetica y numérica