Open, Print and Close File I/O commands for visual basic

It looks like conversion from "Single" to "Long".

That's whats it is, then

-- Could someone look at my source code in the way that is the I/O data filling process???

Quote:

---

Originally Posted by ThEiMp

-- Could someone look at my source code in the way that is the I/O data filling process???

---

Have you changed your code since the example in post #26 (https://www.vbforums.com/showthread....=1#post5611620) , if you have then you need to show us the new code.

If you haven't, why have you ignored all the advice so far?

In an attempt to get you to debug it and tell us what is happening could you answer some simple questions?

1. Why are you doing

Code:

---

On Error Resume Next

---

instead of correctly handling any errors that may occur, errors are a why of finding out what is going wrong, this is causing you to ignore potentially useful information.

2. What is the value of a before and after this line of code?

Code:

---

a = a + 1

---

3. why are you doing

Code:

---

Item1 = (StrConv(LoadResData("SEASON1", "EP" & a), vbUnicode))

---

when you have been told not to use StrConv on binary data?

4. Why are you doing

Code:

---

    With Main.CustomDialog1
        .Action = 2
        .Data = Item1
        .FileName = "\Video1234567890.flv"
        .Path = "C:\Temp\Video1234567890"
    End With

---

if you never use the CustomDialog1 object anywhere?

5. What are the contents of the variable item1 and the contents of the file "C:\Temp\Video1234567890\Video1234567890.flv" before and after this bit of code

Code:

---

Open ("C:\Temp\Video1234567890\Video1234567890.flv") For Binary As #1
    ReDim btData(LOF(1) - 1) As Byte
        Get #1, , Item1
    Close #1

---

are they what you expect?

6. What are the contents of the variable item1 and the contents of the file "C:\Temp\Video1234567890\Video1234567890.flv" before and after this bit of code

Code:

---

    Open ("C:\Temp\Video1234567890\Video1234567890.flv") For Binary As #1
    ReDim btData(LOF(1) - 1) As Byte
        Put #1, , Item1
    Close #1

---

are they what you expect?

There are so many potential problems in your code, that have already been pointed out to you, that need addressing before anything else can be done.

There is no point in asking for help, then completely ignoring the help and advice, then asking for help again on exactly the same problem. You need to either make the suggested updates, or at least explain what is going on. You have shown absolutely no evidence that you have tried to debug this, no evidence of stepping through the code and analysing what is going on, and no evidence you are paying attention to the advice you are getting.

Now you know why OP chose his particular handle:

Imp definition: a small, mischievous devil or sprite

okay then, i will look back at my source code, then so