Tengo un cgi en visual basic con un modulo cgi32.bas, en una página en html tengo un formulario en el cual adjunto un archivo para guardarlo del cliente al servidor, en el action del formulario pongo una llama a un cgi en el cual quiero obtener el archivo y copiarlo en el servidor, este es mi formulario:
<html>
<body>
<form name='leer_archivo' method='post' enctype= 'multipart/form-data' action='/cgi-win/GuardaArchivos.exe/Importar'>
<tr><td>
<input type='file' name='ar_datos' value='' >
<input type='submit' value='Guardar'>
</form>
</body>
</html>
en el CGi tengo lo siguiente:
Sub CGI_Main()
Send ("Content-type: text/html")
Send ("")
sSelector = Mid(CGI_LogicalPath, 2) ' eliminamos la "/" que viene en la cadena
If sSelector = "Importar" Then
Call Importacion
End If
End Sub
Sub Inter_Main()
MsgBox "¡Este es un programa CGI!"
End Sub
Sub Importacion()
Dim Ext, r, n As String
Dim sNomArchOriginal As String
Dim rutaArchivos As String
sRutaArchTxt = "c:\website\htdocs\bd\temp\"
rutaArchivos = "/bdiesi/temp/"
Ext= GetSmallField("ar_datos")
' r = GetSmallField("ruta")
'n = GetSmallField("nom")
sArchDes = sRutaArchTxt & n
Send (sArchDes)
FileCopy Ext, sArchDes
End Sub
Pero al momento de querer tomar el archivo adjunto no funciona, con que función tomo el archivo adjunto?, espero me puedan ayudar, gracias
