Dim _strLocationandNameofFile As String = "F:\MiramarBooks.txt"

Dim objWriter As New IO.StreamWriter("F:\Inventory.txt")

Dim intCount As Integer

Dim strFileErrorMessage As String = "The File is not available. Restart when it is available."


If IO.File.Exists(_strLocationandNameofFile) Then

objWriter.Write(_strInventoryItem)

objWriter.Write(",")

objWriter.Write(_decPrice)

objWriter.Write(",")

objWriter.Write(_intQuantityonHand)

objWriter.Write(",")

objWriter.Write(_intQuantityonOrder)

intCount += 1

End If

objWriter.Close()

Dim i as integer

' Loop through inventory item array and pluck out each value
' from it and its parallel arrays
For i = 0 to _strInventoryItem.length - 1
     objWriter.Write(_strInventoryItem(i))  
     objWriter.Write(",")  
     objWriter.Write(_decPrice(i))  
     objWriter.Write(",")  
     objWriter.Write(_intQuantityonHand(i))  
     objWriter.Write(",")  
     objWriter.Write(_intQuantityonOrder(i))  
     
     ' If you want to then end the line you could write in the carriage return
     objWriter.Write(Constants.vbCrlf)
Next