Protected Sub ddlCrd_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCrd.SelectedIndexChanged
        'pulisco errore
        lblErrore.Text = ""
        Try
            Dim di As New DirectoryInfo("C:\utilitagenerali\promoter\Report\crd_" & ddlCrd.Text)
            ' Get a reference to each directory in that directory.
            Dim diArr As DirectoryInfo() = di.GetDirectories()
            'visualizzo le sottodirectory
            Dim dri As DirectoryInfo
            ddlMeseAnno.Items.Clear()
            For Each dri In diArr
                ddlMeseAnno.Items.Add(dri.Name)
            Next dri
            Response.Write(Server.MapPath(""))
        Catch ex As Exception
            lblErrore.Text = "Selezione non genera visualizzazione di report !"
        End Try


    End Sub