VirtualDirectory Constructor (String)
.NET Framework (current version)
Initializes a new instance of the VirtualDirectory class.
Assembly: System.Web (in System.Web.dll)
Parameters
- virtualPath
-
Type:
System.String
The virtual path to the resource represented by this instance.
The following code example is an implementation of the VirtualDirectory constructor that retrieves virtual file information from a DataSet object provided by a custom VirtualPathProvider object. It includes the GetData method used to populate the VirtualDirectory instance. For the full code required to run the example, see the Example section of the VirtualDirectory class overview.
Public Sub New(ByVal virtualDir As String, ByVal provider As SamplePathProvider) MyBase.New(virtualDir) spp = provider GetData() End Sub Protected Sub GetData() ' Get the data from the SamplePathProvider. Dim spp As SamplePathProvider spp = CType(HostingEnvironment.VirtualPathProvider, SamplePathProvider) Dim ds As DataSet ds = spp.GetVirtualData ' Clean up the path to match data in resource file. Dim path As String path = VirtualPath.Replace(HostingEnvironment.ApplicationVirtualPath, "") Dim trimChars() As Char = {"/"c} path = path.TrimEnd(trimChars) ' Get the virtual directory from the resource table. Dim dirs As DataTable dirs = ds.Tables("resource") Dim rows As DataRow() rows = dirs.Select( _ String.Format("(name = '{0}') AND (type='dir')", path)) ' If the select returned a row, the directory exits. If (rows.Length > 0) Then existsValue = True ' Get the children from the resource table. ' This technique works for small numbers of virtual resources. ' Sites with moderate to large numbers of virtual ' resources should choose a method that consumes fewer ' computer resources. Dim childRows As DataRow() childRows = dirs.Select( _ String.Format("parentPath = '{0}'", path)) For Each childRow As DataRow In childRows Dim childPath As String childPath = CType(childRow("path"), String) If (childRow("type").ToString = "dir") Then Dim svd As New SampleVirtualDirectory(childPath, spp) childrenValue.Add(svd) directoriesValue.Add(svd) Else Dim svf As New SampleVirtualFile(childPath, spp) childrenValue.Add(svf) directoriesValue.Add(svf) End If Next End If End Sub
.NET Framework
Available since 2.0
Available since 2.0
Show: