Visual Basic

vijaylumar wrote:

the error msg is "access to read/write is denied"

vijaylumar wrote:

but the same error is giving "Access to the path 'D:/mydatapath.txt' is denied"

vijaylumar wrote:

cant we give permissions to user at runtime.

vijaylumar wrote:

can dotnet frame works CAS security can do any thing for this ....

<br />
Private Sub ConvertImg()<br />
        Dim hexvalue As String = "FFD8FFE000104A46494600010101000100010000..."<br />
        Dim bytevalue As Byte() = HexToBin(hexvalue)<br />
        Dim myFileStream As FileStream<br />
        Dim intByte As Integer = 0<br />
        Dim lngLoop As Long<br />
<br />
        Try<br />
            intByte = bytevalue.Length<br />
            myFileStream = File.OpenWrite("c:\image.jpg")<br />
<br />
            For lngLoop = 0 To intByte - 1<br />
                myFileStream.WriteByte(bytevalue(lngLoop))<br />
            Next<br />
<br />
            myFileStream.Close()<br />
        Catch ex As IOException<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
    End Sub<br />
<br />
<br />
    '---------------------------------------------------------------------------<br />
    '<br />
    '  Function:	HexToBin()<br />
    '  Input:	s<br />
    '  Return:	bytes<br />
    '  Purpose:	Converts Hex to binary<br />
    '		<br />
    '---------------------------------------------------------------------------<br />
    Public Shared Function HexToBin(ByVal s As String) As Byte()<br />
        Dim arraySize As Integer = CInt(s.Length / 2)<br />
        Dim bytes(arraySize - 1) As Byte<br />
        Dim counter As Integer<br />
        For i As Integer = 0 To s.Length - 1 Step 2<br />
            Dim hexValue As String = s.Substring(i, 2)<br />
<br />
            ' Tell convert to interpret the string as a 16 bit hex value  <br />
            Dim intValue As Integer = Convert.ToInt32(hexValue, 16)<br />
            ' Convert the integer to a byte and store it in the array  <br />
            bytes(counter) = Convert.ToByte(intValue)<br />
            counter += 1<br />
        Next<br />
        Return bytes<br />
    End Function<br />

Dim cn as new SqlConnection(.......)<br />
dim da as new SqlDataAdapter(......)<br />
DropDownList.SelectedItem.text & " And Flag=1",cn)<br />
Dim dt as new Datatable<br />
da.Fill(dt)<br />
'No more Dispose, remember automatic garbage collection<br />
Datagrid1.DataSource = dt <br />

aaraaayen wrote:

and if press Save it should show Save dialog box and give filename and save it, or if we Give open it should open the excel sheet.