Copiar archivos de dispositivos USB

Question

Buenas tardes. Estoy haciendo una aplicación en Visual Studio 2010 (Visual Basic NET) que me debe subir archivos de unidades USB a un FTP masivamente, y tengo este código:

<<
    Sub CopiarArchivos()
        Try
            Dim unidades As DriveInfo() = DriveInfo.GetDrives

            For Each Dispositivo In unidades
                If Dispositivo.DriveType = DriveType.Removable Then
                    For Each Archivos As String In Directory.GetFiles(Dispositivo.Name)
                        If Archivos.Length <> 0 Then
                            FormPral.txtDrv.Text = FormPral.txtDrv.Text & vbCrLf & Archivos.ToString() _
                                & " ------> Archivo detectado" & vbCrLf
                            FormPral.txtArchivo.Text = Archivos.ToString


                            My.Computer.Network.UploadFile(Archivos.ToString(), dirFTP, usuario, contraseña, _
                                                           True, 500)
                            FormPral.txtDrv.Text = FormPral.txtDrv.Text & vbCrLf & Archivos.ToString
                        End If

                    Next
                End If

            Next
            MsgBox("Procedimiento ejecutado", vbOKOnly, "Copiar USB")

        Catch
            FormPral.etqEstado.Text = "Ha ocurrido un error: " & Err.Description & vbCrLf & "Preparado..."
            Exit Sub
        End Try

    End Sub
    Sub SalirPrograma()

        SiNo = MsgBox("¡Salir del programa?", vbYesNo, "Mensaje del Sistema")
        If SiNo = 6 Then
            End
        Else
            FormPral.etqEstado.Text = FormPral.etqEstado.Text & vbCrLf & "Preparado"
            FormPral.btnCopiar.Focus()
            Exit Sub
        End If
    End Sub

>>

Y me devuelve un error: "UploadFile necesita un nombre de archivo". Estoy buscando pero no encuentro la causa. ¿Qué estoy haciendo mal? Muchas gracias de antemano.

Answer 1

La ruta de destino debe contener la ruta completa incluido el nombre del fichero. Estás pondiendo disFTP que creo que solo será la ruta de la carpeta.

---

Saludos, Javier J

Answer 2

Muuchas gracias, Javiier. He añadido el nombre de archivo, y ahora me dice que "... no es una dirección de archivo remoto válida...."  Te  pongo el código que he añwadido:

<<

for i = NombreArchivo.Length - 1 To 0 Step -1
                                If NombreArchivo(i) <> "\" Then
                                    Fichero = NombreArchivo(i) & Fichero
                                    FormPral.txtArchivo.Text = FormPral.txtArchivo.Text & ", " & Fichero
                                Else
                                    Exit For
                                End If
Nex

>>

  Y en la instrucción de subida al FTP, en la url  le añado una "\" y 'Fichero'

---

www.titoct200.com

Answer 3

No se como estás montando la ruta.

Pon un punto de interrupción en la instrucción UploadFile y mira que ruta remota estás dando.

---

Saludos, Javier J

Answer 4

Hola, Javier.  Creo que voy a ser asiduo a este  foro, porque es el mejor......... y lo que hay por ahí  fuera.........  ¡hay que echarle!

  A ver, lo que estoy mandando es "ft//ftp.strato.com/p1.txt". Este fichero está en un  pendrive permanentemente conectado a mi torre. Y el nombre lo obtengo recorriendo un string inversamente hasta que aparezca la "\"ñ.  Acto seguido, añado el string generado a la dirección de salida.

---

www.titoct200.com

Answer 5

Hola, Javier.  Creo que voy a ser asiduo a este  foro, porque es el mejor......... y lo que hay por ahí  fuera.........  ¡hay que echarle!

  A ver, lo que estoy mandando es "ft//ftp.strato.com/p1.txt". Este fichero está en un  pendrive permanentemente conectado a mi torre. Y el nombre lo obtengo recorriendo un string inversamente hasta que aparezca la "\"ñ.  Acto seguido, añado el string generado a la dirección de salida.

---

www.titoct200.com

Porque otra forma o hay, ¿no?  Se tiene que hacer archivo a archivo, ¿no?

---

www.titoct200.com

Answer 6

La ruta no está bien. Debe ser del tipo

ftp://ftp.strato.com/p1.txt

---

Saludos, Javier J

Answer 7

Si, recorres los archivos y los subes.

---

Saludos, Javier J

Answer 8

La ruta no está bien. Debe ser del tipo

ftp://ftp.strato.com/p1.txt

---

Saludos, Javier J

  Ahhhhhhh, con las barras contrarias. Vaaaale vale. Probare

---

www.titoct200.com

Answer 9

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡CONSEGUIDO!!!!!!!!!!!!!!!!! Muuuuuuuuuuuuuuchas gracias!!!!!!!!!!!!!!!!!!!!!!!!

---

www.titoct200.com

Answer 10

No olvides marcar las respuestas para dar el tema por cerrado.

---

Saludos, Javier J