<%
pe = request("pe")
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
pth = Server.MapPath(pe)
Set ObjPasta = ObjFso.GetFolder(pth)
ini = 0
For Each ObjArq in ObjPasta.Files
if left(ObjArq.Name,1) = "t" then ini = ini + 1
Next
%>
Tirinhas ! O Poder das Emoções
