<%@ Page Language="VB" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.IO.IsolatedStorage" %> <script runat="server"> sub Page_Load(Sender as Object, e as EventArgs) dim i as Integer dim objISOFile as IsolatedStorageFile = _ IsolatedStorageFile.GetUserStoreForDomain() Response.Write("<b>Files:</b> ") dim intCount = Ubound(objISOFile.GetFileNames("*.*")) for i = 0 to intCount Response.Write(objISOFile.GetFileNames _ ("*.*")(i) & "<br>") next Response.Write("<b>Assembly: </b>" & _ objISOFile.AssemblyIdentity.ToString & "<br>") Response.Write("<b>Domain: </b>" & _ objISOFile.DomainIdentity.ToString & "<br>") Response.Write("<b>Current Size: </b>" & _ objISOFile.CurrentSize.ToString & "<br>") Response.Write("<b>Max Size: </b>" & _ objISOFile.MaximumSize.ToString & "<br>") end sub </script> <html><body> </body></html>