Dim UploadDataSet As DataSet = New DataSet UploadDataSet.ReadXml(Server.MapPath("uploadConfig.xml")) Dim row As DataRow With UploadDataSet.Tables(0) 'Dim keys() As DataColumn = New DataColumn(1) Dim keys(1) As DataColumn keys(0) = .Columns("type") .PrimaryKey = keys row = .Rows.Find("attach") Dim AllowFileType As String = row.Item("AllowFileType") Dim MaxSize As Int16 = row.Item("MaxSize") Dim NotAllowFile As String = row.Item("NotAllowFileType") End With
