<%
'Obtener el archivo subido
Set archivo = Request.Files("archivo")
'Comprobar si se ha subido un archivo
If Not archivo Is Nothing Then
'Obtener la ruta de la carpeta donde se guardará el archivo
rutaCarpeta = Server.MapPath("carpetaSubida")
'Comprobar si la carpeta existe, si no existe, crearla
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(rutaCarpeta) Then
FSO.CreateFolder(rutaCarpeta)
End If
'Guardar el archivo en la carpeta de destino
rutaArchivo = rutaCarpeta & "\" & archivo.FileName
archivo.SaveAs rutaArchivo
Response.Write "El archivo se ha subido correctamente."
Else
Response.Write "No se ha seleccionado ningún archivo para subir."
End If
%>