<%On Error Resume NextDim rSet r = New Rarr.Add Server.MapPath("a.gIf")r.Add Server.MapPath("a.txt")r.Add Server.MapPath("test")r.Add Server.MapPath("file.asp")r.packname = Server.MapPath("xxx.dat")r.Packr.rootpath = ...