mark up 帮顶,网上类似代码挺多的,遍历一下目录而已
'获取css目录下所有文件夹名称
Dim cspath As String = Server.MapPath("css")
If System.IO.Directory.Exists(cspath) Then
Dim dir() As String = System.IO.Directory.GetDirectories(cspath)
For i = 0 To dir.Length - 1
Dim mc() As String = dir(i).Split("\")
mblx.Items.Add(mc(mc.Length - 1))
Next
Else
Response.Write(cspath)
Response.Write("此文件夹不存在!不能修改模板!")
Me.Button1.Disabled = True
Exit Sub
End If