-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: spprivate
Message 3 in Discussion
Another round about way.
The quickest solution I could come up with was:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
Dim list As ArrayList = GetDirectories("c:\test")
ddl.DataSource = list
ddl.DataBind()
End If
End Sub
Public Shared Function GetDirectories(ByVal path As String) As ArrayList
Dim list As New ArrayList
For Each subs As String In IO.Directory.GetDirectories(path)
list.Add(subs)
list.AddRange(GetDirectories(subs))
Next
Return list
End Function
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member
Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you
received this message by mistake, please click the "Remove" link below. On the
pre-addressed e-mail message that opens, simply click "Send". Your e-mail
address will be deleted from this group's mailing list.
mailto:[EMAIL PROTECTED]
