Obtener la ruta de un archivo

[marcelol]

Hola Estoy Trabajando En Visual Basic Net 2003 Y Deseo Saber Como Puedo Obtener La Ruta De Un Archivo.

No Se Si Sea Posible Por Medio De Un Openfiledialog

Gracias

[moNTeZIon]

Hola marcelol,
Tienes un nombre de archivo y lo que deseas es buscarlo en todo el disco duro, y si lo encuentras, obtener su ruta? Eso es lo que interpreto con "Saber Como Puedo Obtener La Ruta De Un Archivo."
Mediante un OpenFileDialog puedes buscar un fichero en tus ubicaciones (pero lo buscas tu, como ser humano) y luego si, una vez seleccionado el archivo, puedes acceder a su nombre, Ruta, propiedades.
Explica un poco mejor tus intenciones.
Saludos.

[marcelol]

mediante un openfiledialog yo obtengo el archivo por lo tanto deseo saber su ubicacion, es decir su Path

Como puedo obtenerla???

[moNTeZIon]

Hola de nuevo marcelol,
Con OpenDialog seria algo así:

Código:

Dim result As DialogResult = openFileDialog.ShowDialog()
if result = DialogResult.OK Then
  TextBox1.Text = openFileDialog.FileName

FileName te devuelve la ruta completa, con el nombre de archivo incluido.

Si solo quieres la ruta, sustituyes la linea del TextBox1 por:

Código:

TextBox1.Text = IO.Path.GetDirectoryName(openFileDialog.FileName)

Saludos.

[marcelol]

Gracias por tus respuestas , pude capturar ruta y archivo.


Otra pregunta como puedo cargar en un combo los servidores Sql que existen en la RED??

Gracias por tu ayuda.

[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.

[marcelol]

hola me depliega el sgte error en la linea
Dim ListaServidores As SQLDMO.NameList = SQLApp.ListAvailableSQLServer

Error de QueryInterface para la Interface SQLDMO.NameList

No se porque tira ese error.

[moNTeZIon]

Agregaste la referencia? Asegurate en las propiedades del proyecto > referencias. Debes tener "Microsoft SQLDMO Object Library". Qué versión te pone? Y estas con 2005 o con 2003?

[marcelol]

Hola efectivamente puse la referencia he hice el imports respectivo.
trabajo en Visual Studio 2003. Visual Basic Net

version de sqldemo object library es la 8.0

eso.

[moNTeZIon]

Yo encontré esa forma de hacerlo, y me funcionó perfecto, pero con la version 2005, y la del componente es la 8.5
Intenta buscar información acerca de tu versión. Si veo algo te digo.
Saludos.

[marcelol]

lo hare Gracias