20/07/2004, 11:25
|
 | | | Fecha de Ingreso: febrero-2003 Ubicación: México
Mensajes: 75
Antigüedad: 22 años, 8 meses Puntos: 0 | |
| Usa el FileSystemObject.
1.- Con el nombre del usuario o con la sesión crea un subdirectorio (debe tener permisos el IUSR)
Dim rutavirtual
Dim CrearFolder
Dim FSO
rutavirtual = "ArchivosAdjuntos\" & Session("UserID")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.createfolder server.mappath(rutavirtual)
Set FSO = Nothing
'Para Borra el Folder
FSO.deletefolder server.mappath(rutavirtual)
Y luego puedes subir con el XELUPLOAD
Espero te sirva |