Script vb

[Lariy]

Fiz um script que exclui arquivos de uma determinada pasta quando o período da data de criação á data de hoje for > que 15. A minha dúvida é o seguinte, como que faço para excluir apenas os arquivos de tipo txt, e não todos os tipos, como ocorre no script abaixo, porque na minha pasta "x" tem arquivos de excel, world, mas quero que exclua somente do tipo txt, mesmo que um arquivo de excel já tenha um período de criação > que 15.

set FSo = CreateObject("Scripting.FileSystemObject")
set folder = FSO.getFolder ("C:\Users\Larissa\Desktop\x")   
for each file in folder.files
if (dateDiff("d", file.datecreated, now) >15) then
File.delete
end if
next

att.

Editado Agosto 5, 2010 por kuroi
Adicionar tag CODE

[kuroi]

tenta isso:

if FSO.GetExtensionName(file.path) = "txt" And (dateDiff("d", file.datecreated, now) >15) then
File.delete
end if[/code]

[Lariy]

Muita obrigada!Deu certo