Gracias amigo jose, agradezco tu interés en mi duda, a continuación lo que hice en .net y en mi pc de 64bits:
En ms access lo coloco el TLB en las referencias sin problema no lo registro ni nada, solo lo agrego
luego al llamarlo me da el error 429
Imports System.Runtime.InteropServices
Imports System
Imports System.IO
Namespace FTPConecting
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch), GuidAttribute("54407958-8431-4CDB-BAB7-702BF31EE3AE")> Public Interface Conencting_FTP
Function Envia_archivo(ByVal NombreArchivo As String, ByVal RutaArchivo As String, ByVal url As String, ByVal usuarios As String, ByVal clave As String, ByVal SubirArchivo As Boolean) As Boolean
End Interface
'
' <ComSourceInterfaces(ComClass.comclass2)> _
' <ComClass(ComClass.cifrar, ComClass.descifrar)> _
<ClassInterface(ClassInterfaceType.AutoDual), GuidAttribute("885D6867-FCB6-40D1-B00B-330C2ACB4491")> Public Class ComClass
Implements Conencting_FTP
Public Sub New()
MyBase.New()
End Sub
<ComVisible(True)> Public Function Envia_archivo(ByVal NombreArchivo As String, ByVal RutaArchivo As String, ByVal url As String, ByVal usuarios As String, ByVal clave As String, ByVal SubirArchivo As Boolean) As Boolean
Implements Conencting_FTP.Envia_archivo
Envia_archivo = False
Try
Select Case SubirArchivo
Case True
My.Computer.Network.UploadFile(RutaArchivo & "/" & NombreArchivo, url & "/" & NombreArchivo, usuarios, clave)
Envia_archivo = True
Case False
My.Computer.Network.DownloadFile(url & "/" & NombreArchivo, RutaArchivo & "/" & NombreArchivo, usuarios, clave)
Envia_archivo = True
End Select
Catch ex As Exception
Envia_archivo = False
MsgBox("Error en DLL Conecting" & vbLf & Err.Number & "-" & Err.Description, MsgBoxStyle.Critical, "Err Conecting")
End Try
End Function
End Class
End Namespace
Rookie
