Estoy intentando hacer un formulario que al elegir un archivo me lo suba a un ftp, pero el problema que tengo es que coge la ruta entera y no solo el nombre del archivo por lo que intenta hacer un upload del estilo c:/rutadelarchivo/nombrearchivo.extension y el ftp no lo permite
Código:
Private Sub Subir_Archivo(ByVal Url As String, ByVal Path_Archivo As String, ByVal usuario As String, ByVal password As String)
'Controlador de Error
Try
'Ejecuta el método UploadFile para subir el driver
My.Computer.Network.UploadFile(Url, Path_Archivo, usuario, password, True, 2500, FileIO.UICancelOption.DoNothing)
MessageBox.Show("Archivo enviado con éxito", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
'error al ejecutar la función
Catch mensaje As Exception
MessageBox.Show(mensaje.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Código:
Lo que me interesaría es saber si hay alguna forma de filtrar para que solo me muestre el nombre del archivo y su extensión ya que en el textbox donde reflejo el archivo me muestra la ruta y nombre del mismo. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Text Files (*.txt)|*.txt"
OpenFileDialog.ShowDialog(Me)
Dim file As String
For Each file In OpenFileDialog.FileNames
TextBox4.Text = file
Call Subir_Archivo(file, "ftp://ftp.dominio.com/public_html/uploads/" & file, "usuario", "pwd")
Next file
End Sub
Salu2 y gracias ;)
