Visual Basic - Enviar archivo a carpeta no a un directorio del sistema

Life is soft - evento anual de software empresarial
   
Vista:

Enviar archivo a carpeta no a un directorio del sistema

Publicado por camilo andres (13 intervenciones) el 31/07/2015 19:37:00
Buenas tardes:

Estoy enviando archivos desde un pc a otro y todo me funciona bien, pero en esta parte

1
2
3
4
5
6
7
8
9
Private Sub Button_cambiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_cambiar.Click
        FolderBrowserDialog1.ShowDialog()
        If DialogResult.OK Then
            txtSaveLoc.Text = FolderBrowserDialog1.SelectedPath & "\"
            server.IncomingPath = txtSaveLoc.Text
        Else
            txtSaveLoc.Text = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        End If
    End Sub

Puedo cambiar la carpeta donde recibo el archivo buscando la ruta, pero quisiera saber como puedo dejar la ruta por defecto para que sea una carpeta que yo cree y no tenga que ser un directorio del sistema como mis documentos, mis imágenes, mi música, etc

Asi lo guardo en mis documentostxtSaveLoc.Text = My.Computer.FileSystem.SpecialDirectories.MyDocuments pero quiero guardarlo en E:\ReportedeFallas\

De antemano muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Enviar archivo a carpeta no a un directorio del sistema

Publicado por Andres Leonardo (702 intervenciones) el 01/08/2015 01:07:32
Intenta darle valor al txtsaveloc.txt antes de entrar a ese procedimiento.

txtSaveLoc.Text = "E:\ReportedeFallas\"

O cambia esto asi..
txtSaveLoc.Text = My.Computer.FileSystem.SpecialDirectories.MyDocuments
por
txtSaveLoc.Text = "E:\ReportedeFallas\"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Enviar archivo a carpeta no a un directorio del sistema

Publicado por camilo andres (13 intervenciones) el 01/08/2015 22:49:53
Muchas gracias, cambie txtSaveLoc.Text = My.Computer.FileSystem.SpecialDirectories.MyDocuments
por
txtSaveLoc.Text = "E:\ReportedeFallas\"

Y me funciono, nunca pense que se podia hacer asi de facil. Nuevamente muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

Enviar archivo a carpeta no a un directorio del sistema

Publicado por JoaoM (72 intervenciones) el 02/08/2015 18:37:57
Todo está al toque (muy bien) pero pido disculpa por la intromisión

Si en cualquier oportunidad la unidad cambia de letra? es una sugerencia que me vino a mente y que puede mui bien suceder.

Si dicha unidad E. deja de existir, que hace la macro? txtSaveLoc.Text = "E:\ReportedeFallas\"
Soponiendo que se hace un formateo y la E. no exciste y por emergencia tienes que usar la macro?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Enviar archivo a carpeta no a un directorio del sistema

Publicado por camilo andres (13 intervenciones) el 05/08/2015 14:56:57
Si la unidad deja de existir hay un botón para buscar la ubicación de la carpeta en que quiera guardar el archivo, lo de "E:\ReportedeFallas\" es solo una carpeta predeterminada para no tener que buscarla cada que abra el programa.

Cordial saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

Enviar archivo a carpeta no a un directorio del sistema

Publicado por JoaoM (72 intervenciones) el 05/08/2015 18:01:26
Ok Camilo, gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar