Grazie infinite Patel,
così è perfetta!
si ordina tutto e il nome del file rimane corretto!
grazie, buona serata! ciao
Moderatori: Anthony47, Flash30005
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
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 11 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 126 ospiti