Results 1 to 2 of 2

Thread: Toubles accessing resource file

  1. #1

    Thread Starter
    Junior Member
    Join Date
    Jan 1999
    Location
    Fridley, MN, USA
    Posts
    19

    Post

    ok, i am trying to run a .exe from a resource file, here's my script:
    _____________________________________________
    Public Sub PlayElfBowl(id101 As Integer)
    Dim bytResdata() As Byte
    Dim intFreefile() As Integer
    Dim strTemp() As String
    bytResDate = LoadResData(id101, "Custom")
    strTemp = App.Path & IIf(Right(App.Path, 1) = "\", "temp.exe", "\temp.exe")

    intFreefile = FreeFile
    Open strTemp For Binary As intFreefile
    Put #intFreefile, , bytResdata
    Close #intFreefile
    Call PlayElfBowl(strTemp, Flags)
    Kill strTemp
    End Sub

    Private Sub Command1_Click()
    Call PlayElfBowl
    End Sub
    _____________________________________________
    i knew this was wrong anyway, but i dont know what is wrong, can anyone help?

  2. #2
    New Member
    Join Date
    Feb 2000
    Location
    Calgary, Alberta, Canada
    Posts
    2

    Post Problems with RES file

    1. In your PlayElfBowl sub, near the end, you have a line that reads "Call PlayElfBowl". VB generates an error if you call a sub within itself, as the loop you start will never end.

    2. Check your code for reading from the RES file. Use the examples here:
    http://www.vb-world.net/ubb/Forum1/HTML/011328.html

    3. You might have an error in your code for writing files. I don't know file code very well, but check the examples on this site against your own code.

    4. If this is a Copy/Paste of your actual code, you spelled
    "bytResData" wrong on the LoadResData line.

    5. You need to pass a constant (in this case 10, I think) instead of using "Custom" when calling LoadResData.

    Hope this helps,
    Shadowlord [email protected]

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width