Aspx İçin VB Upload Jpg Vs..
-
Sub FormView1_ItemInserting(ByVal sender As Object, ByVal e As FormViewInsertEventArgs)
If (CType(e.Values("BytesOriginal"), [Byte]()).Length = 0) Then
e.Cancel = True
End If
End Sub
Sub Button1_Click(ByVal sender As Object, ByVal e As ImageClickEventArgs)
Dim d As IO.DirectoryInfo = New IO.DirectoryInfo(Server.MapPath("~/Upload"))
Dim enumerator As System.Collections.IEnumerator = CType(d.GetFiles("*.jpg"), System.Collections.IEnumerable).GetEnumerator
Do While enumerator.MoveNext
Dim f As IO.FileInfo = CType(enumerator.Current, IO.FileInfo)
Dim buffer() As Byte = New Byte((f.OpenRead.Length) - 1) {}
f.OpenRead.Read(buffer, 0, CType(f.OpenRead.Length, Integer))
Dim manager As New PhotoManager
manager.AddPhoto([Convert].ToInt32(Request.QueryString("AlbumID")), f.Name, buffer)Loop
GridView1.DataBind()
End Subtahrip.com stormy abimizden alıntıdır
