Usar DLLS desde un ASP
Hola!
He hecho una sub en VB que ya funciona y esto es que me copia un archivo del servidor a un directorio de mi maquina, solo que ahora la quiero hacer DLL y pasarle parámetros como nombre de archivo y algunos otros desde un ASP.
Aquí esta el código que he generado en la DLL
****************************************************************
Public Sub CopiaArchivos(MiArchivo As String)
Dim strFile As String
Dim strPattern As String
Dim strFolderA As String
Dim strFolderB As String
strPattern = MiArchivo
strFolderA = "\\MiServidor\D\Proyectos\Trabajo\"
strFolderB = "C:\Temp\"
strFile = Dir(strFolderA & strPattern)
While strFile <> Empty
FileCopy strFolderA & strFile, strFolderB & strFile
strFile = Dir()
Wend
End Sub
******************************************************************
Ahora como llamo en mi pagina ASP a esta DLL?
He intentado algo como esto pero no me funciona
******************************************************************
<!-- METADATA TYPE="Typelib"
FILE="C:\WINNT\MisDLLs\DLLFunciones.dll" -->
<html>
<head><title>Demo Copiar</title><head>
</head>
<body>
<%
set MiCopia = Server.CreateObject("DLLFunciones.Funciones")
set Copia = MiCopia.CopiaArchivos("Datos.txt")
%>
</body>
</html>
******************************************************************
¿Sera qué me podrías orientar como resolver esto?
Te lo agradecería muchísimo por que ya no veo como resolverlo, Gracias!
Alberto
[email protected]
He hecho una sub en VB que ya funciona y esto es que me copia un archivo del servidor a un directorio de mi maquina, solo que ahora la quiero hacer DLL y pasarle parámetros como nombre de archivo y algunos otros desde un ASP.
Aquí esta el código que he generado en la DLL
****************************************************************
Public Sub CopiaArchivos(MiArchivo As String)
Dim strFile As String
Dim strPattern As String
Dim strFolderA As String
Dim strFolderB As String
strPattern = MiArchivo
strFolderA = "\\MiServidor\D\Proyectos\Trabajo\"
strFolderB = "C:\Temp\"
strFile = Dir(strFolderA & strPattern)
While strFile <> Empty
FileCopy strFolderA & strFile, strFolderB & strFile
strFile = Dir()
Wend
End Sub
******************************************************************
Ahora como llamo en mi pagina ASP a esta DLL?
He intentado algo como esto pero no me funciona
******************************************************************
<!-- METADATA TYPE="Typelib"
FILE="C:\WINNT\MisDLLs\DLLFunciones.dll" -->
<html>
<head><title>Demo Copiar</title><head>
</head>
<body>
<%
set MiCopia = Server.CreateObject("DLLFunciones.Funciones")
set Copia = MiCopia.CopiaArchivos("Datos.txt")
%>
</body>
</html>
******************************************************************
¿Sera qué me podrías orientar como resolver esto?
Te lo agradecería muchísimo por que ya no veo como resolverlo, Gracias!
Alberto
[email protected]
Respuesta de arunchi
1