copying - please help!

my problem - i read from the file FromFile. i convert the text there its ASCII value and write the ASCII value back to ToFile.

The problem is i want to convert the spaces in the text file to their ACSII values too (space = 32), not just the letters! PLEASE HELP!


here is my code:

Code:

---




Open FromFile For Binary As #1
Open ToFile For Binary As #2

For LoopControl = 1 To BufferCount
Get #1, , InByte
Dim ToFile
Dim FromFile

FileSize = FileLen(FromFile)
BufferCount = FileSize / 1


InByte2 = Asc(InByte)

Put #2, , InByte2

Next LoopControl

Close #1
Close #2

---

thanks in advance for your help

Hi,

You could just do a test and wrap it.

i.e. if inbyte2 = 32 then inbyte2 = " "