Private Sub btnSaveReport_Click(sender As Object, e As EventArgs) Handles btnSaveReport.Click
        Try
            Dim arrayPOentries() As String
            Dim strSourceFileLocation As String = AppDomain.CurrentDomain.BaseDirectory + "_data/"
            Dim strDetinationFileLocation As String = tbSaveFileLocation.Text
            Dim Paths() As String = IO.Directory.GetFiles(strSourceFileLocation, "*.dat")
            For Each Path As String In Paths
                'another loop here?
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Me.Close()
    End Sub

Select all Open in new window

public class DirectoryResponse
    {
        public List<Company> Companyname { get; set; }
    }


    [XmlType(TypeName = "Company")]
    public class Company
    {
    public string _id { get; set; }
    public string  name { get; set; }
    public string friendly_id { get; set; }
    public DateTime creation_date { get; set; }
    public DateTime updated_date { get; set; }
    public int member_count { get; set; }
    public string initial { get; set; }

    
    





    }

Select all Open in new window

public  List<Company> GetCompanyDetails(bool onlyCurrent = true)
        {


 var raw = response.Content.Replace("Date\":\"0000-00-00\"", "Date\":null").RemoveTroublesomeCharacters();
                var package = JsonConvert.DeserializeObject<DirectoryResponse>(raw);
                // return JsonConvert.DeserializeObject<T>(s);
                //raw.FromJson<DirectoryResponse>()



                if (package != null)
                {


                    var com = package.Companyname;

                    return com;
}

Select all Open in new window

public interface IrestClient
    {
        List<Company> GetCompanyDetails(bool onlyCurrent = true);
    }

Select all Open in new window

    <select name = "ctl00$ContentBody$TeamProfileControl$ddlDistrictId" id="ddlDistrictId" Class="ddlSelectMultiple" name="ddlDistrictId" multiple="multiple" style="width:100%;">
    	<option value = "1786" > AP_Test_District</Option>
    	<option value = "209" > Honey Dew South</Option>
    	<option value = "562" > HQ</Option>
    	<option value = "38" > JK&#39;s Crib</Option>
    	<option value = "206" > Kansas City Office</Option>
    	<option value = "759" > Testing District</Option>

    </select>

Select all Open in new window

   Public Sub CheckMultiListBoxNumeric(ByRef ddlDistrictId As DropDownList, ByVal districtIds As String)

        ddlDistrictId.ClearSelection()

        Dim checkedItems As String()
        checkedItems = Split(districtIds, ",")
        Dim selected As List(Of String) = checkedItems.ToList()

        For Each row As String In selected


            If ddlDistrictId.Items.FindByValue(row) IsNot Nothing Then
                ddlDistrictId.Items.FindByValue(row).Selected = True
            End If


        Next

Select all Open in new window