Abrir arquivo pela data de modificação

#1

Prezados,

Como seria o script no E3 para abrir sempre o arquivo (imagem) com data mais recente em uma determinada pasta, independentemente do nome?

Att,
Daniel Gleison

#2

Talvez você possa criar um função p/ varrer a pasta com os arquivos que lhe interessam e retornar o nome ou o caminho do arquivo mais recente, mais ou menos assim:

Sub button_Click()
	MsgBox GetLatestModified("D:\tmp")
End Sub

Function GetLatestModified(path)
	Dim auxDate, auxName, folder, file, files, fso
	Set fso = CreateObject("Scripting.FileSystemObject")
		
	Set folder = fso.GetFolder(path)
	
	Set files = folder.Files

	For Each file in files		
		If (CDate(auxDate) < file.DateLastModified) Then
			auxDate = file.DateLastModified
			auxName = file.Name
		End If
	Next
	
	GetLatestModified = auxName
End Function

Sub Foo()
End Sub
2 Likes
#3

Funcionou perfeitamente @leandrobpedro!
Obrigado pela ajuda!

1 Like