LiveWire Peer Support Network

Printable Version of Topic "vb6 run time error 13"

- LiveWire Teen Forums & College Forums (http://www.golivewire.com)
-- (http://www.golivewire.com/forums/support-technical.html)
--- Programming & Application Development (http://www.golivewire.com/forums/forum-211-s-0.html)
---- vb6 run time error 13 (http://www.golivewire.com/forums/peer-btosna-support-a.html)

-- Posted by Link01 at 1:52 am on Feb. 9, 2007

Code:
Open "games.csv" For Input As #1

totvalue = 0

While Not EOF(1)
       
   totvalue = totvalue + cost
   
   Input #1, Console, Game, price, Age, Genre, cost, Condition, quantity

 
lstGame.AddItem Console & Game & price & Age & Genre & cost & Condition & quantity
   
   Console(x) = Console(x) + "                 "
   
   Console(x) = Left(Console(x), 19)
   
   Game(x) = Left(Game(x) + "               ", 16)
   
   price(x) = Left(price(x) + "              ", 14)
   
   Age(x) = Left(Age(x) + "              ", 16)
   
   Genre(x) = Left(Genre(x) + "              ", 17)
   
   cost(x) = Left(cost(x) + "              ", 14)
   
   price(x) = Left(price(x) + "              ", 14)
   
   quantity(x)=left (quantity(x) "   ",3)

   Wend

I keep getting runtime error 13. I have done a similar program before. So i baes it on that it won't work help.

www.golivewire.com