Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("F:\SQL\Folder")
a = 01/01/01

' RICERCA ALL'INTERNO DELLA DIRECTORY IL FILE + RECENTE
For Each file In f.Files
	'MsgBox file.DateCreated
	if file.DateCreated > a then
		a = file.DateCreated 
		percorso = file.path
	end if
'	MsgBox percorso
'	MsgBox file.Path
'	MsgBox file.ShortName
'	MsgBox file.ShortPath
'	MsgBox file.Size
Next 
'MsgBox a

'INSERISCE NELLA VARIABILE QUERY LA QUERY DA LANCIARE
query = "RESTORE DATABASE infosql FROM  DISK = N'" & percorso & "' WITH  FILE = 1,  NOUNLOAD ,  STATS = 10,  RECOVERY ,  REPLACE "
'MsgBox "Query Creata"

'SCRIVE IN  UN FILE DI TESTO LA QUERY GENERATA PRECEDENTEMENTE
Dim OggFile, origine, OggTextStream
origine="F:\SQL\Script\query.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile (origine)
Set OggFile = fso.GetFile (origine)
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine query 
OggTextStream.close
'msgbox "Scrittura eseguita correttamente."

' ESEGUE TRAMITE ISQL LA QUERY NEL DB
Set sss = CreateObject("WScript.Shell")
sss.run "cmd /K isql.exe -E -i F:\SQL\Script\query.txt"