Es que yo tampoco vi nada, por eso preguntaba 
Saludos

Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarWildcard characters (*, ?, and so on) are not supported.
Msgbox txt("C:\Carpetaejemplo", "txt")
Function txt(Carpeta, Extension)
txt = False
Set objfso = CreateObject("scripting.filesystemobject")
Set oFolder = objfso.getfolder(Carpeta)
Set oFiles = oFolder.files
For each f in oFiles
if(lcase(right(f.path,3))) = lcase(Extension) then
txt = True
exit Function
end if
Next
End Function
set objshell = createobject("wscript.shell")