Torna al Thread
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