Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/05/2005, 01:22
Avatar de neivan
neivan
 
Fecha de Ingreso: febrero-2005
Mensajes: 539
Antigüedad: 19 años, 3 meses
Puntos: 1
Para subir una imagen del ordenador del cliente a una carpetadel servidor???????

Puedes hacer:::

con un <input id="file1" type="file" runat="server" />
Para cogerla y el code:

Function CheckFile() As Boolean
If file1.PostedFile.ContentLength > 0 Then
If Not (file1.PostedFile.ContentLength / 1000) > 1024 Then
Dim FileExt As String
FileExt = System.IO.Path.GetExtension(file1.PostedFile.FileN ame).ToLower
If FileExt = ".doc" Or FileExt = ".txt" Or FileExt = ".pdf" Then
lblerror.Text = "El fichero a sido enviado!!!"
Return True
Else
lblerror.Text = "La extensión del fixhero no es corecta."
Return False
End If
Else
Dim SizeMBs As String
SizeMBs = CStr(file1.PostedFile.ContentLength / (1024 * 1024))
SizeMBs = SizeMBs.Substring(0, SizeMBs.IndexOf(".") + 3)
lblerror.Text = "El fichero es demasiado grande ! tu pudes enviar ficheros de 1 Mb como maximo, y el fichero actual tine un tamaño de " & SizeMBs & "MB"
Return False
End If
Else
lblerror.Text = "Fichero no Valido"
return False
End If
End Function


Function SaveFile() As Boolean
If CheckFile() = True Then
Dim Fname As String = System.IO.Path.GetFileName(file1.PostedFile.FileNa me)
'file1.PostedFile.SaveAs(Server.MapPath("Descarga\ " & Fname)) '// ruta relativa
file1.PostedFile.SaveAs("C:\ivan\privados\archivos \" & Fname) '// ruta absoluta
Return True
Else
Return False
End If
End Function

Arriba en la funcion checkfile le indicas q es de tipo jpg o gif o el que kieras,utiliza esto para subirlo a la carpeta q kieras
Comprueba que devulve Fname
Si devulve el nombre.jpg por ejmplo haces un split(Fname , ".")
que te devolvera un array con 2 posiciones ,la primera posicion sera el nombre sin la extension.... y lo metes en tu bd