File packer producing strange error [Resolved]

[Oafo]

The file packer I've made is doing something weird. When it extracts the packed files, it puts characters in the beginning of a file. For example, if a text file called Dog.txt has been packed like this:

Hello, I am a dog.
What are you?

It will extract like this:

 % Hello, I am a dog.
What are you?

It does this on all file types, not just text files. Anyone know what could be going wrong?

[Oafo]

Here's the project file and what not.

[Oafo]

Don't tell me that nobody else has had this problem..

[nemaroller]

You should be using a byte array to get and retrieve the data instead of a string....

you put it in as a string, so everytime a vbcrlf is encountered, its storing it as 4 bytes instead of 2...

[Oafo]

I know, I know... but that doesn't account for the characters appearing in the beginning of every unpacked file, does it?

[Zaei]

Strings contain a header (which VB hides from you). You might be printing thsi heade to the file unknowningly. If you can, re-write your function to write the string byte by byte.

Note, I didint look at your code at all.

Z.

[nemaroller]

Just use a byte array...

declare a blank array... Dim myBytes() As Byte
Open the file...

Then Redim myByte(LoF(1))
Then Get #1,,myBytes

[Oafo]

I got it finished without using a Byte array. The problem was because the array was declared as a Variant, so I removed the Split code completely and just parsed the data into a String array -- which turned out to be a lot faster anyway. Thanks for the help guys.