Preciso abrir o arquivo txt mais recente de um diretorio...  nao consegui entender porque o codigo abaixo da sempre erro.

Sub arquivo()
foldername = "G:\Meu Drive\Fechamento" & Application.PathSeparator
fname = Dir(foldername & "*txt")
foldername = foldername & fname
'fname = Dir(FolderName & "*xlsm")
wookbooks.Open foldername
End Sub