[excel] ordinare colonna con nomi di file ...

[tricilindrico]

Grazie infinite Patel,

così è perfetta!
si ordina tutto e il nome del file rimane corretto!
grazie, buona serata! ciao

[Flash30005]

Ma scusa, se ti occorre solo l'ultimo file Creato o Modificato nella cella A1 del foglio
perché non usi una macro che legge la data/ora di Creazione o modifica e scrivi solo il file corrispondente a quella data?
Una macro di questo tipo

Codice: Seleziona tutto

Sub ShowFolderList(CARTELLA, rig, col)

    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.getfolder(CARTELLA)
    Set sf = f.SubFolders
    Set NFile = f.Files

    For Each pf1 In NFile
        If pf1.Name = "" Then Exit Sub
        datacre = pf1.DateCreated 'data creazione File
        dataultacc = pf1.DateLastAccessed 'data ultimo accesso al file
        Dataultmod = pf1.DateLastModified 'data ultima modifica al file
        nomefile = pf1.Name
        If MDataUM < Dataultmod Then
            MDataUM = Dataultmod
            NomeF = nomefile
        End If
    Next
        Cells(rig, col) = NomeF
End Sub

Sub Avvio()
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    Range("A2:A100").ClearContents
    Perc = "C:\Temp"
    Call ShowFolderList(Perc, 1, 1)
End Sub

In questa maniera eviti l'intero elenco da manipolare e da ordinare

Ciao

[patel]

molto utile, hai degli altri esempi sulla gestione dei file ?

[Flash30005]

@Patel
Altri parametri interessanti potrebbero essere questi (nella routine precedente)

da inserire prima del Ciclo For next
nomedisco = f.drive.volumename 'Nome disco

da inserire nel ciclo For Next
dimens = pf1.Size '<<<< dimensione file
dataultacc = pf1.DateLastAccessed '<<<< Data ultimo accesso

Ciao