Dim upload, fsys, carpeta, fs, archivo, extension, strsave As Object Dim ext As String Dim dest As System.IO.Directory Session("usuario") = 1 carpeta = Session("usuario") carpeta = Trim(carpeta) If Not dest.Exists(Server.MapPath("\grafica\upload\" & carpeta)) Then dest.CreateDirectory(Server.MapPath("\grafica\upload\" & carpeta)) End If If InStr(browser.PostedFile.FileName, ".") <> 0 Then ext = Mid(browser.PostedFile.FileName, InStr(browser.PostedFile.FileName, ".")) If Trim(ext) <> ".txt" Then Response.Write("Imposible enviar este tipo de archivo.<br>" & _ "Solo se permiten archivos con extension .txt") Exit Sub End If End If Dim Destino As String = Server.MapPath("\grafica\upload\" & carpeta & "\" & _ System.IO.Path.GetFileName(browser.PostedFile.FileName)) browser.PostedFile.SaveAs(Destino) Response.Write("Su archivo ha sido cargado en : <b>" & Destino & _ "</b><br>Tamaño: " & browser.PostedFile.ContentLength() & " bytes.") End Sub
No se puede mostrar la página La página Web solicitada no está disponible en este momento. Puede que el sitio Web tenga problemas técnicos o que necesite ajustar la configuración de su explorador. --------------------------------------------------------------------------------Pruebe lo siguiente:Haga clic en el botón Actualizar o vuelva a intentarlo más tarde.Si escribió la dirección de la página en la barra de direcciones, compruebe que esté escrita correctamente.Para comprobar la configuración de su conexión, haga clic en el menú Herramientas y después en Opciones de Internet. Haga clic en Configuración en la ficha Conexiones. La configuración debe ser igual a la proporcionada por su administrador de red de área local (LAN) o su proveedor de servicios Internet (ISP). Compruebe que la configuración de conexión a Internet esté siendo detectada. Puede establecer que Microsoft Windows examine la red y detecte automáticamente la configuración de conexión de red (si el administrador de red habilitó dicha configuración). Haga clic en el menú Herramientas y después en Opciones de Internet. En la ficha Conexiones, haga clic en Configuración LAN. Seleccione Detectar automáticamente la configuración, y después haga clic en Aceptar. Algunos sitios requieren una conexión de seguridad de 128 bits. Haga clic en el menú Ayuday luego en Acerca de Internet Explorer para determinar la capacidad de seguridad instalada. Si está intentando obtener acceso a un sitio seguro, asegúrese de que es compatible con su configuración de seguridad. Haga clic en el menú Herramientas y después en Opciones de Internet. En la ficha Opciones avanzadas, desplácese a la sección de Seguridad y compruebe la configuración de SSL 2.0, SSL 3.0, TLS 1.0 y PCT 1.0. Haga clic en el botón Atrás para intentar otro vínculo. No se pudo encontrar el servidor o error DNSInternet Explorer