Obtener la ruta de un archivo

[moNTeZIon]

Ahi van unos codigos de ejemplo que tenia por ahi..

Código:

    Private srvSQL As New SQLDMO.SQLServer
    Private dbSQL As New SQLDMO.Database

    Private Sub ActualizarListaServidoresSQL()
        Dim SQLApp As New SQLDMO.Application
        Dim ListaServidores As SQLDMO.NameList = SQLApp.ListAvailableSQLServers
        txtServidoresSQL.Items.Clear()
        txtBasesDeDatos.Items.Clear()
        Dim i As Integer
        For i = 0 To ListaServidores.Count - 1
            If Not ListaServidores.Item(i) Is Nothing Then
                txtServidoresSQL.Items.Add(ListaServidores.Item(i))
            End If
        Next
    End Sub

    Private Sub ActualizarListaBasesDeDatos()
        txtBasesDeDatos.Items.Clear()
        If txtServidoresSQL.SelectedIndex < 0 Then Throw New Exception("Seleccione un Servidor SQL")
        srvSQL.DisConnect()
        srvSQL.LoginSecure = Aut_Windows.Checked 'Autenticacion ( True->Windows | False->SQLServer )
        srvSQL.Connect(txtServidoresSQL.SelectedItem.ToString, txtUserSQL.Text, txtPassSQL.Text)
        For Each dbSQL In srvSQL.Databases
            txtBasesDeDatos.Items.Add(dbSQL.Name)
        Next
        srvSQL.DisConnect()
    End Sub

Para poder usar los objetos SQLDMO.SQLServer y SQLDMO.DataBase debes agregar una referencia de tipo COM: "Microsoft SQLDMO Object Library"

Espero que te ayude este código.
Saludos.