利用SQLDMO返回SQL服务器指定的目录列表

'引用SQLDMO
Imports SQLDMO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sr As New SQLDMO.SQLServer()

        '连接SQL服务器，重复连接会报错    
        sr.Connect("SQLServer", "sa", "Password")
        Dim qrs As SQLDMO.QueryResults = sr.EnumDirectories("c:/")  '目录

        Dim lst As New System.Collections.Generic.List(Of String)

        '取出返回目录列表
        If qrs.Rows > 0 And qrs.Columns > 0 Then
            For i As Integer = 1 To qrs.Rows
                lst.Add(qrs.GetColumnString(i, 1))
            Next
        End If

        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(lst.ToArray())

    End Sub
End Class