Click here to Skip to main content
15,915,772 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Developing Mail Sending Application Pin
G.Manivannan11-Aug-08 18:30
G.Manivannan11-Aug-08 18:30 
GeneralRe: Developing Mail Sending Application Pin
Vimalsoft(Pty) Ltd11-Aug-08 20:18
professionalVimalsoft(Pty) Ltd11-Aug-08 20:18 
GeneralRe: Developing Mail Sending Application Pin
G.Manivannan12-Aug-08 23:42
G.Manivannan12-Aug-08 23:42 
QuestionPrinting Pin
Tom Deketelaere8-Aug-08 1:57
professionalTom Deketelaere8-Aug-08 1:57 
AnswerRe: Printing Pin
Paul Conrad8-Aug-08 19:35
professionalPaul Conrad8-Aug-08 19:35 
GeneralRe: Printing Pin
Tom Deketelaere18-Aug-08 21:55
professionalTom Deketelaere18-Aug-08 21:55 
Questionextractaction and compression of files Pin
sunil goyalG8-Aug-08 0:26
sunil goyalG8-Aug-08 0:26 
AnswerRe: extractaction and compression of files Pin
Manas Bhardwaj8-Aug-08 0:33
professionalManas Bhardwaj8-Aug-08 0:33 
Private Sub Compress(ByVal Filename As String)
Dim targetfile As String = IO.Path.ChangeExtension(Filename, "zdx")
Using sr As New IO.FileStream(Filename, IO.FileMode.Open)
Using sw As New IO.FileStream(targetfile, IO.FileMode.OpenOrCreate)
Using gZip As New IO.Compression.GZipStream(sw, IO.Compression.CompressionMode.Compress, False)
Dim buffer(sr.Length) As Byte
sr.Read(buffer, 0, buffer.Length)
gZip.Write(buffer, 0, buffer.Length)
gZip.Flush()
gZip.Close()
End Using
sw.Close()
End Using
sr.Flush()
sr.Close()
End Using
End Sub


Here is the code to uncompress,

Private Sub UnCompress(ByVal filename As String)
Dim targetfile As String = IO.Path.ChangeExtension(filename, "doc")
Using sw As New IO.FileStream(targetfile, IO.FileMode.OpenOrCreate)
Using sr As New IO.FileStream(filename, IO.FileMode.Open)
Using gZip As New IO.Compression.GZipStream(sr, IO.Compression.CompressionMode.Decompress)
Dim buffer(sr.Length) As Byte
gZip.Read(buffer, 0, buffer.Length)
sw.Write(buffer, 0, buffer.Length)
End Using
End Using
End Using
End Sub

QuestionFile download in asp .net from the server Pin
summon_197-Aug-08 23:53
summon_197-Aug-08 23:53 
AnswerRe: File download in asp .net from the server Pin
Manas Bhardwaj8-Aug-08 0:36
professionalManas Bhardwaj8-Aug-08 0:36 
QuestionReading groups in active directory Pin
SAadmin7-Aug-08 20:57
SAadmin7-Aug-08 20:57 
AnswerRe: Reading groups in active directory Pin
Manas Bhardwaj7-Aug-08 23:27
professionalManas Bhardwaj7-Aug-08 23:27 
GeneralRe: Reading groups in active directory Pin
SAadmin8-Aug-08 0:56
SAadmin8-Aug-08 0:56 
QuestionHow to export data by using vb 6.0 Pin
BalasubramanianK7-Aug-08 20:48
BalasubramanianK7-Aug-08 20:48 
AnswerRe: How to export data by using vb 6.0 Pin
dan!sh 7-Aug-08 22:44
professional dan!sh 7-Aug-08 22:44 
AnswerRe: How to export data by using vb 6.0 Pin
jzonthemtn8-Aug-08 9:20
jzonthemtn8-Aug-08 9:20 
QuestionAdding image in HTML Email Pin
nitin_ion7-Aug-08 18:49
nitin_ion7-Aug-08 18:49 
AnswerRe: Adding image in HTML Email Pin
Johan Hakkesteegt8-Aug-08 3:28
Johan Hakkesteegt8-Aug-08 3:28 
GeneralRe: Adding image in HTML Email Pin
nitin_ion10-Aug-08 17:15
nitin_ion10-Aug-08 17:15 
QuestionHow I can find instance from hWnd Pin
manisghouri7-Aug-08 15:04
manisghouri7-Aug-08 15:04 
AnswerRe: How I can find instance from hWnd Pin
rprateek7-Aug-08 15:32
rprateek7-Aug-08 15:32 
GeneralRe: How I can find instance from hWnd Pin
manisghouri7-Aug-08 15:47
manisghouri7-Aug-08 15:47 
GeneralRe: How I can find instance from hWnd Pin
nlarson118-Aug-08 17:27
nlarson118-Aug-08 17:27 
QuestionHow can i send my cursor to catch even there is no error Pin
rprateek7-Aug-08 14:40
rprateek7-Aug-08 14:40 
AnswerRe: How can i send my cursor to catch even there is no error Pin
rprateek7-Aug-08 18:15
rprateek7-Aug-08 18:15 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.