When i click "showcontents" it should display something like this in the label IF the file is non-text.
The problem is it would not show some non-text files.. or it would only display a few characters like "MZ"
Another is the copy button doesnt work. It should copy a file from the source to destination one byte at a time.
[img]http://photos.friendster.com/photos/89/38/24968398/2_990509606l.jpg[/img]
heres the copy and read part of my code, any help would be very much appreciated.. :D :D :D
Dim thefile, sAscii, thefile2, dAscii As String
Dim bUnicode() As Byte
Dim aUnicode() As Byte
Dim g1 As Integer
Dim g2 As Integer
Dim i, ff As Integer
Dim j, l As Integer
Public Sub Binary_read()
thefile = File1.Path + "\" + File1.FileName
'get file id
ff = FreeFile
Open thefile For Binary As #ff
ReDim bUnicode(LOF(ff))
Get #ff, , bUnicode
Close #ff
sAscii = StrConv(bUnicode, vbUnicode) 'Key function!
lbl_content.Caption = sAscii
End Sub
Public Sub Binary_copy()
thefile = File1.Path + "\" + File1.FileName
thefile2 = Dir2.Path
'get file id
g1 = FreeFile
Open thefile For Binary As #g1
g2 = FreeFile
Open thefile2 For Binary As #g2
Do Until EOF(g1)
ReDim aUnicode(LOF(g2))
Get #g1, , aUnicode
Put #g2, , aUnicode
Loop
Close #g1
Close #g2
End Sub