¡Puntos de bonificación por problemas de descarga y carga de VB6.0 FTP!

Primero introduzca la descarga ftp, el código es el siguiente: Const Str_FtpServer As String = " ftp://ftp.lob.cn" Private Str_Username As String = "lob" Private Str_Password As String = " xxxxxxxx "Private Sub DownloadFile (ByVal Str_Path As String) Pruebe Dim Str_Filename As String = Str_Path Dim ftpReq As FtpWebRequest = WebRequest.Create(Str_Filename). Create(Str_Filename) ftpReq.Method = WebRequestMethods.Ftp.DownloadFile ftpReq.Credentials = New NetworkCredential(Str_Username, Str_Password) Dim FTPResp.Password) Dim FTPResp As FtpWebResponse = ftpReq.GetResponse Dim ftpRespStream As Stream = FTPResp.GetRe spon seStream 'FTPResp.StatusDescription StatusDescription Se utiliza para describir el estado de visualización y se puede utilizar para depurar ftpRespStream.GetResponseStream = FTPResp.StatusDescriptionSave("d:\lobdotcn.rar") 'Guardar en la ruta local; si lo desea, también puede definir FTPResp.Close() directamente en los parámetros Catch ex As Exception MsgBox(ex.Message) End Try End Sub Calling método: DownloadImage(Str_FtpServeramp; "/logo.jpg")=================== ======== ===================================== Lo primero que tienes que hacer Mire si es lo que desea y, de ser así, baje la página. Si es así, cópialo desde aquí: /u/22170/showart_475726.html Jaja, trabajo en C#, pero tu puntaje es demasiado tentador, así que te ayudaré a encontrarlo~

Recuerda Acéptalo .