Visual Basic 2005: Web Browser

[moradazo]

Hola a todos los programadores del foro.

Mi situacion es la siguiente:

Tengo un web Browser para tomar un archivo y guardarlo, como un copiar y pegar, lo que quiero es que cuando vaya a guardar sea en un lugar especifico que yo le ponga, por ejemplo:

Al abrir tome cualquier .txt pero al guardar sea siempre en C:/Mis documentos.

Obviamente se puede modificar donde se va guardar pero que en primera instancia sea ahi. Este es mi codigo del abrir y guardar:

Código PHP:

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 
        Dim strFileName As String 
 
        'Toma el archivo' 
        With OpenFileDialog1 
            .FileName = "" 
            .ShowDialog() 
            strFileName = .FileName 
        End With 
 
        If strFileName.Length Then 
            oDocument = Nothing 
            WebBrowser1.Navigate(strFileName) 
        End If 
    End Sub  
   

Que le puedo agregar para que me dirija siempre a la direccion que quiero, gracias.

[jaullo]

Prueba con esta instruccion que estable el directorio principal

.InitialDirectory = "C:\"

Saludos,

[moradazo]

Gracias.

Asi lo resolvi:

Código PHP:

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
       
        Dim myOpenFile As New OpenFileDialog 
 
        With myOpenFile 
            'directorio inicial' 
            .InitialDirectory = "C:\" 
            'archivos que se pueden abrir" 
            .Filter = "Archivos Xml (*.xml)|*.xml|All Files (*.*)|*.*" 
            'indixe del archivo de lectura por defecto' 
            .FilterIndex = 1 
            'restaurar el directorio de la apliación al cerrar el dialogo' 
            .RestoreDirectory = True 
        End With 
        Dim s As String 
        OpenFileDialog1.ShowDialog() 
        s = OpenFileDialog1.FileName 
        'Copia el archivo seleccionado a un path escogido' 
        My.Computer.FileSystem.CopyFile(s, "C:\archivo.txt", True) 
    End Sub  
   

[jaullo]

Estamos para ayudar