File packer producing strange error [Resolved]

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:

Code:

---

Hello, I am a dog.
What are you?

---

It will extract like this:

Code:

---

 % 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?

Here's the project file and what not.

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

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...

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

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.

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

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.