Reply to thread

Message

Hi Reed
I decided to rewrite my project. Hit another snag. How do I write the contents from a datagrid to a file and back into the datagrid again later????? (Actually, Ive done the writing ok - but for the life of me cant get the data back into a blank datagrid.
The MS help on readline is about as much use as a chocolate fireguard.
Again, the problem is somehwere near the bottom of the listing.
Allan

Heres what I done so far:

<div style="color:Black;background-color:White; <pre>
<span style="color:Blue; Imports System
<span style="color:Blue; Imports System.IO
<span style="color:Blue; Imports System.Text

<span style="color:Blue; Public <span style="color:Blue; Class frmKAOS

<span style="color:Blue; Private <span style="color:Blue; Sub frmKAOS_FormClosing(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.FormClosingEventArgs) <span style="color:Blue; Handles <span style="color:Blue; Me.FormClosing
<span style="color:Blue; If MessageBox.Show(<span style="color:#A31515; "Are you sure that you want to exit KAOS5?", <span style="color:#A31515; "Exit KAOS5", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes <span style="color:Blue; Then
e.Cancel = <span style="color:Blue; False
<span style="color:Blue; Else
e.Cancel = <span style="color:Blue; True
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub Form1_Load(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles <span style="color:Blue; MyBase.Load
<span style="color:Blue; Dim drvs() <span style="color:Blue; As <span style="color:Blue; String = System.IO.Directory.GetLogicalDrives()
<span style="color:Blue; Dim i <span style="color:Blue; As <span style="color:Blue; Long

<span style="color:Blue; Me.Text = <span style="color:#A31515; "KAOS5"
<span style="color:Blue; Me.StartPosition = FormStartPosition.CenterScreen
<span style="color:Green; Me.WindowState = FormWindowState.Maximized

OpenToolStripMenuItem.Enabled = <span style="color:Blue; False
PlayToolStripMenuItem.Enabled = <span style="color:Blue; False
PauseToolStripMenuItem.Enabled = <span style="color:Blue; False
ResumeToolStripMenuItem.Enabled = <span style="color:Blue; False
StopToolStripMenuItem.Enabled = <span style="color:Blue; False
CloseToolStripMenuItem.Enabled = <span style="color:Blue; False
SaveToolStripMenuItem.Enabled = <span style="color:Blue; False

songsDataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
songsDataGridView1.MultiSelect = <span style="color:Blue; False

tbVolume.Enabled = 0
tbVolume.Minimum = 0
tbVolume.Maximum = 1000
tbVolume.Value = 0
lblVolume.Text = <span style="color:#A31515; "0"
tbVolume.TickFrequency = 100

Timer1.Interval = 900 <span style="color:Green; Roughly every sec (even though its in millisecs I prefer using 900 to 1000)
Timer1.Enabled = <span style="color:Blue; False
lblNoOfFiles.Text = <span style="color:#A31515; "0"
lblProgress.Text = <span style="color:#A31515; "0"

songsDataGridView1.ScrollBars = ScrollBars.Both
songsDataGridView1.Size = <span style="color:Blue; New Size(<span style="color:Blue; Me.Width - 50, <span style="color:Blue; Me.Height - (ProgressBar1.Height + 230))

songsDataGridView1.ColumnCount = 12 <span style="color:Green; not 13 as Im not showing the tag - nothing to do with being superstitious about 13
songsDataGridView1.Columns(0).Width = 30 * 16
songsDataGridView1.Columns(1).Width = 30 * 16
songsDataGridView1.Columns(2).Width = 30 * 16
<span style="color:Green; songsDataGridView1.Columns(3).Width = 4 * 16
songsDataGridView1.Columns(4).Width = 30 * 16
<span style="color:Green; songsDataGridView1.Columns(5).Width = 1 * 16
songsDataGridView1.Columns(6).Width = 3 * 16
<span style="color:Green; songsDataGridView1.Columns(7).Width = 1 * 16
songsDataGridView1.Columns(8).Width = 30 * 16
songsDataGridView1.Columns(9).Width = 256 * 16
<span style="color:Green; The column widths are in pixels - Ive allowed 16 pixels per character

<span style="color:Green; songsDataGridView1.Columns(0).Name = "TAG" Not showing the tag
songsDataGridView1.Columns(0).Name = <span style="color:#A31515; "Title"
songsDataGridView1.Columns(1).Name = <span style="color:#A31515; "Artist"
songsDataGridView1.Columns(2).Name = <span style="color:#A31515; "Album"
songsDataGridView1.Columns(3).Name = <span style="color:#A31515; "Year"
songsDataGridView1.Columns(4).Name = <span style="color:#A31515; "Comment"
songsDataGridView1.Columns(5).Name = <span style="color:#A31515; "Zero Byte"
songsDataGridView1.Columns(6).Name = <span style="color:#A31515; "#"
songsDataGridView1.Columns(7).Name = <span style="color:#A31515; "Genre Byte"
songsDataGridView1.Columns(8).Name = <span style="color:#A31515; "Genre String"
songsDataGridView1.Columns(9).Name = <span style="color:#A31515; "Path"
songsDataGridView1.Columns(10).Name = <span style="color:#A31515; "Size (in bytes)"
songsDataGridView1.Columns(11).Name = <span style="color:#A31515; "Playing time"

<span style="color:Green; Populate the drive combobox with a list of logical drives
<span style="color:Blue; For i = drvs.GetLowerBound(0) <span style="color:Blue; To drvs.GetUpperBound(0)
cmbDrives.Items.Add(drvs(i))
<span style="color:Blue; Next i
cmbDrives.SelectedIndex = 0
txtFileExtension.Text = <span style="color:#A31515; "mp3" <span style="color:Green; Default extension
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub btnExit_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles btnExit.Click
Application.<span style="color:Blue; Exit()
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub btnSearch_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles btnSearch.Click
<span style="color:Blue; Me.DialogResult = System.Windows.Forms.DialogResult.OK
<span style="color:Blue; Dim tags <span style="color:Blue; As List(Of <span style="color:Blue; String), datarow() <span style="color:Blue; As <span style="color:Blue; String
<span style="color:Blue; Dim PlayingTimeColIndex <span style="color:Blue; As <span style="color:Blue; Integer = 11, CurrentRowIndex <span style="color:Blue; As <span style="color:Blue; Integer = 0
<span style="color:Blue; Dim filename <span style="color:Blue; As <span style="color:Blue; String, ret 
<span style="color:Green; Entry point that uses the recursive search directory function.
<span style="color:Green;
<span style="color:Green; Very important note:
<span style="color:Green; By design, this routine DOES NOT CLEAR the grid of found files BECAUSE the user may want to add
<span style="color:Green; files from multiple drive searches (or even want a list of duplicated files - who knows?)!
<span style="color:Green; There is a separate Clear list button to clear the datagrid of files - but its up to the user to

<span style="color:Green; Get recursive List of all files starting in this directory.
<span style="color:Blue; Dim drv <span style="color:Blue; As <span style="color:Blue; String = cmbDrives.SelectedItem
<span style="color:Blue; Dim start <span style="color:Blue; As <span style="color:Blue; String = <span style="color:#A31515; ""
<span style="color:Blue; Dim ext <span style="color:Blue; As <span style="color:Blue; String = <span style="color:#A31515; ""
<span style="color:Blue; If drv = <span style="color:#A31515; "" <span style="color:#A31515; "" <span style="color:Blue; Then
drv = drv & <span style="color:#A31515; ""
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; Me.Cursor = Cursors.WaitCursor
lblSysMessage.Text = <span style="color:#A31515; "Searching...."
Application.DoEvents()
<span style="color:Green; Setup the debug window - remember to take out this code in the release version
Debug.Close()
Debugger.Launch()
Debug.Flush()
Debug.AutoFlush() = <span style="color:#A31515; "" <span style="color:Blue; Then
start = start & txtStartFolder.Text
 <span style="color:#A31515; "*." <span style="color:Blue; Then
ext = <span style="color:#A31515; "*." & ext <span style="color:Green; Extension should really be validated here
<span style="color:Blue; End <span style="color:Blue; If
GC.Collect() <span style="color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling
lblSysMessage.Text = <span style="color:#A31515; "Starting search of directory " & start
<span style="color:Blue; Dim list <span style="color:Blue; As List(Of <span style="color:Blue; String) = GetFilesRecursive(start, ext)
MsgBox(<span style="color:#A31515; "Search of " & start & <span style="color:#A31515; " done. Starting to process the found files.")
Application.DoEvents()
lblSysMessage.Text = <span style="color:#A31515; "Processing found files"
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = list.<span style="color:Blue; Count
ProgressBar1.Value = 0
<span style="color:Blue; If list.<span style="color:Blue; Count = 0 <span style="color:Blue; Then
lblSysMessage.Text = <span style="color:#A31515; "No such start directory"
<span style="color:Blue; Me.Cursor = Cursors.<span style="color:Blue; Default
<span style="color:Blue; Exit <span style="color:Blue; Sub
<span style="color:Blue; End <span style="color:Blue; If
lblNoOfFiles.Text = list.<span style="color:Blue; Count
<span style="color:Blue; For <span style="color:Blue; Each path <span style="color:Blue; In list
tags = ReadTags(path)
ProgressBar1.Value = ProgressBar1.Value + 1
lblProgress.Text = Int((ProgressBar1.Value / ProgressBar1.Maximum) * 100)
datarow = tags.ToArray
 0 <span style="color:Blue; Then
songsDataGridView1.Rows.Add(datarow)
<span style="color:Green; I find that getting the playing times makes the initial processing of the files
<span style="color:Green; waaaaaaay too long unfortunately
<span style="color:Green; (it increases the processing time per file by a factor of about 10x (my impression) which
<span style="color:Green; would normally be unacceptable, but its ok for a first time use and then the user has the
<span style="color:Green; option to save the processed list to a file or to read the list back from a file in the
<span style="color:Green; future.
<span style="color:Green; Surprisingly, although displaying the name of the file being processed slows things down
<span style="color:Green; a tad even more, psychologically it makes the wait more tolerable since the user actually sees
<span style="color:Green; that things are happening - and so the wait becomes a tad more tolerable.
<span style="color:Green;
filename = songsDataGridView1(9, CurrentRowIndex).Value
ret = mciSendString(<span style="color:#A31515; "Open " & Chr(34) & filename & Chr(34) & <span style="color:#A31515; " alias audio wait", <span style="color:Blue; CStr(0), 0, 0)
ret = mciSendString(<span style="color:#A31515; "set audio time milliseconds wait", <span style="color:Blue; CStr(0), 0, 0)
ret = mciSendString(<span style="color:#A31515; "status audio length wait", lpStrReturnString, Len(lpStrReturnString), 0)
 0 <span style="color:Blue; Then
lblSysMessage.Text = <span style="color:#A31515; "Unable to set/get time format and playing time for " & filename
songsDataGridView1(PlayingTimeColIndex, CurrentRowIndex).Value = <span style="color:#A31515; "Unknown"
<span style="color:Blue; Else
<span style="color:Blue; Dim PT <span style="color:Blue; As <span style="color:Blue; String = ConvertToShortTime(Trim(lpStrReturnString))
songsDataGridView1(PlayingTimeColIndex, CurrentRowIndex).Value = PT
lblSysMessage.Text = <span style="color:#A31515; "Playing time for " & filename & <span style="color:#A31515; " is " & PT
<span style="color:Blue; End <span style="color:Blue; If
CurrentRowIndex = CurrentRowIndex + 1
ret = mciSendString(<span style="color:#A31515; "close audio wait", <span style="color:Blue; CStr(0), 0, 0)
<span style="color:Green; Im concerned that with thousands of files to process I have to try to keep the memory
<span style="color:Green; footprint/usage down. I wish that the ID3 v1.0 specification included a milliseconds playing
<span style="color:Green; time field in the ID3 frame - then getting the playing times initially wouldnt be a hassle.
<span style="color:Green; I know that one of the proposed extended ID3 tags specs. do - but so few MP3s use them (and
<span style="color:Green; it would require IF tests per file hence thousands of extra IFs being executed)
<span style="color:Green; that it isnt really worth checking for extended specification MP3 tags.
<span style="color:Green;
<span style="color:Green; Coding KAOS makes me appreciate wmp even more - despite its shortcomings!
<span style="color:Green;
Application.DoEvents()
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; Next

<span style="color:Green; Write total number of paths found.
lblSysMessage.Text = <span style="color:#A31515; "Processing of found files done: " & songsDataGridView1.Rows.<span style="color:Blue; Count - 1 & <span style="color:#A31515; " files found. You are advised to save the list."
MsgBox(<span style="color:#A31515; "Processing of found files done: " & songsDataGridView1.Rows.<span style="color:Blue; Count - 1 & <span style="color:#A31515; " files found. You are advised to save the list.")
<span style="color:Blue; Me.Cursor = Cursors.<span style="color:Blue; Default
<span style="color:Green; MsgBox("Select a file with a left click, and then right click on that file to play it etc.", MsgBoxStyle.OkOnly, "Help") Hopefully, we wont need a left click now
MsgBox(<span style="color:#A31515; "Select a file with a right click to play it etc.", MsgBoxStyle.OkOnly, <span style="color:#A31515; "Help") <span style="color:Green; Hopefully, this will be true
Application.DoEvents()
OpenToolStripMenuItem.Enabled = <span style="color:Blue; True
PlayToolStripMenuItem.Enabled = <span style="color:Blue; False
PauseToolStripMenuItem.Enabled = <span style="color:Blue; False
ResumeToolStripMenuItem.Enabled = <span style="color:Blue; False
StopToolStripMenuItem.Enabled = <span style="color:Blue; False
CloseToolStripMenuItem.Enabled = <span style="color:Blue; False
SaveToolStripMenuItem.Enabled = <span style="color:Blue; False

Debug.Close()
<span style="color:Green; Update the files list
GC.Collect() <span style="color:Green; Force a garbage collection because we have likely done a LOT of string handling
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub SavePlaylistToolStripMenu_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) 0 <span style="color:Blue; Then
GC.Collect() <span style="color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling
<span style="color:Green; Save the datagrid
SaveFileDialog1.Filter = <span style="color:#A31515; "KAOS Playlist|*.kpl|Text|*.txt"
SaveFileDialog1.Title = <span style="color:#A31515; "Save a Playlist File"
SaveFileDialog1.CheckPathExists = <span style="color:Blue; True
SaveFileDialog1.DefaultExt = <span style="color:#A31515; "*.kpl"
SaveFileDialog1.InitialDirectory = Application.LocalUserAppDataPath
SaveFileDialog1.FileName = <span style="color:#A31515; "" <span style="color:Blue; Then
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = songsDataGridView1.Rows.<span style="color:Blue; Count
ProgressBar1.Value = 0

<span style="color:Blue; Dim path <span style="color:Blue; As <span style="color:Blue; String = SaveFileDialog1.FileName
<span style="color:Green; Delete the current file if it exists.
<span style="color:Blue; If File.Exists(path) <span style="color:Blue; Then
File.Delete(path)
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Green; Create the new file -- note, saved as plain ASCII so that the user can view it in notepad, etc.
<span style="color:Blue; Dim NextLine <span style="color:Blue; As <span style="color:Blue; String = <span style="color:#A31515; ""
<span style="color:Blue; Dim fs <span style="color:Blue; As <span style="color:Blue; New FileStream(path, FileMode.Append, FileAccess.Write, FileShare.Write)
fs.Close()
<span style="color:Blue; Dim sw <span style="color:Blue; As <span style="color:Blue; New StreamWriter(path, <span style="color:Blue; True, Encoding.ASCII)
lblSysMessage.Text = <span style="color:#A31515; "Saving grid data..."
<span style="color:Blue; For rows = 0 <span style="color:Blue; To songsDataGridView1.Rows.<span style="color:Blue; Count - 1
NextLine = <span style="color:#A31515; "" <span style="color:Green; An extremely important line - do NOT forget to nullify this string
<span style="color:Green; each time in the loop before adding columns - otherwise the processing will really be VERY,
<span style="color:Green; VERY slow and the resultant file will likely be megabytes of text rather than a few kbs or 100s kbs.
<span style="color:Green; Get the column content values (separated by commas)
<span style="color:Blue; For column = 0 <span style="color:Blue; To 11
NextLine = NextLine & <span style="color:#A31515; "," & songsDataGridView1(column, rows).Value
<span style="color:Blue; Next
<span style="color:Green; Write the line of comma delineated values
lblSysMessage.Text = NextLine
sw.WriteLine(Microsoft.VisualBasic.Mid(NextLine, 2)) <span style="color:Green; Ignore 1st comma and use writeline to get LFCRs instead of write
ProgressBar1.Value = ProgressBar1.Value + 1
lblProgress.Text = Int((ProgressBar1.Value / ProgressBar1.Maximum) * 100)
Application.DoEvents()
<span style="color:Blue; Next
<span style="color:Green; Close the file
sw.Close()
lblSysMessage.Text = <span style="color:#A31515; "Grid data saved."
Application.DoEvents()
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; If
GC.Collect() <span style="color:Green; Force a garbage collection because we have likely done a LOT of string handling
<span style="color:Blue; End <span style="color:Blue; Sub

<span style="color:Blue; Private <span style="color:Blue; Sub OpenPlayListToolStripMenu_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles OpenPlayListToolStripMenu.Click
GC.Collect() <span style="color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling
<span style="color:Blue; Dim myStream <span style="color:Blue; As Stream = <span style="color:Blue; Nothing, tags <span style="color:Blue; As List(Of <span style="color:Blue; String) = <span style="color:Blue; Nothing
<span style="color:Green; Open the datagrid
OpenFileDialog1.Title = <span style="color:#A31515; "Open a Playlist File"
OpenFileDialog1.CheckPathExists = <span style="color:Blue; True
OpenFileDialog1.DefaultExt = <span style="color:#A31515; "*.kpl"
OpenFileDialog1.InitialDirectory = Application.LocalUserAppDataPath
OpenFileDialog1.Filter = <span style="color:#A31515; "KAOS Playlist files (*.kpl)|*.kpl|All files (*.*)|*.*"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = <span style="color:Blue; True
OpenFileDialog1.FileName = <span style="color:#A31515; ""

<span style="color:Blue; If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK <span style="color:Blue; Then
<span style="color:Blue; Try
myStream = OpenFileDialog1.OpenFile()
<span style="color:Blue; If (myStream <span style="color:Blue; IsNot <span style="color:Blue; Nothing) <span style="color:Blue; Then
<span style="color:Blue; Dim sr <span style="color:Blue; As <span style="color:Blue; New StreamReader(OpenFileDialog1.FileName, detectEncodingFromByteOrderMarks:=<span style="color:Blue; True)
<span style="color:Blue; Dim line <span style="color:Blue; As <span style="color:Blue; String = <span style="color:#A31515; "", k <span style="color:Blue; As <span style="color:Blue; Integer = 0
<span style="color:Blue; Dim title <span style="color:Blue; As <span style="color:Blue; String = Space(30), Artist <span style="color:Blue; As <span style="color:Blue; String = Space(30), album <span style="color:Blue; As <span style="color:Blue; String = Space(30)
<span style="color:Blue; Do
line = sr.ReadLine()
lblSysMessage.Text = line <span style="color:Green; Display the line just read
<span style="color:Green; Parse and split the line here
<span style="color:Green; Wonder whats the best way to do in .net? Ask the forum
<span style="color:Green; For now, do this:
<span style="color:Green; title = Microsoft.VisualBasic.Left(line, 30)
<span style="color:Green; Artist = Microsoft.VisualBasic.Mid(line, 31, 30)
<span style="color:Green; album = Microsoft.VisualBasic.Mid(line, 61, 30)
<span style="color:Green; Ok the above lines work - but how on Earth do I add them to a blank data grid????

<span style="color:Green; Jesus, how do I read the damn file back into the gridarray?????
<span style="color:Green; Ive tried all sorts - but keep getting index exceptions or some such crap!
<span style="color:Green; Why have M$ made what used to be really tasks so damn hard?????
<span style="color:Green; Pulling my little remaining hair out here - this is why I keep geting fed up of .Net
<span style="color:Green; and go back to good ol VB6 or QB or whatever - using .Net is like being caught in
<span style="color:Green; a net - I guess its apply named!

<span style="color:Green; tags.Item(0).add = title
<span style="color:Green; tags.Item(1) = Artist
<span style="color:Green; tags.Item(2) = album
<span style="color:Green; Nope building up a List(Of strings) doont help either grrrrrrrrr

<span style="color:Green; songsDataGridView1.Rows.Add(tags)

<span style="color:Green; The following dont work either
<span style="color:Green; songsDataGridView1(k, 0).Value = title
<span style="color:Green; songsDataGridView1(k, 1).Value = Artist
<span style="color:Green; songsDataGridView1(k, 2).Value = album

<span style="color:Green; Watch it be something simple yet daft like songsDataGridView1(0,0).ReadFile
<span style="color:Green; or something
<span style="color:Green; Note: the grid is being written to the file just dandy - as notepad proves!
k = k + 1
Application.DoEvents()
<span style="color:Blue; Loop <span style="color:Blue; Until line <span style="color:Blue; Is <span style="color:Blue; Nothing
sr.Close()
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; Catch Ex <span style="color:Blue; As Exception
MessageBox.Show(<span style="color:#A31515; "Cannot read file from disk. Original error: " & Ex.Message)
<span style="color:Blue; Finally
<span style="color:Green; Check this again, since we need to make sure we didnt throw an exception on open.
<span style="color:Blue; If (myStream <span style="color:Blue; IsNot <span style="color:Blue; Nothing) <span style="color:Blue; Then
myStream.Close()
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Try
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; End <span style="color:Blue; Class

[/code]


 <hr class="sig Big Al

View the full article

<blockquote data-quote="EDN Admin" data-source="post: 764572" data-attributes="member: 20559">Hi Reed &nbsp;I decided to rewrite my project. Hit another snag. How do I write the contents from a datagrid to a file and back into the datagrid again later????? (Actually, Ive done the writing ok - but for the life of me cant get the data back into a blank datagrid.&nbsp;The MS help on readline is about as much use as a chocolate fireguard. &nbsp;Again, the problem is somehwere near the bottom of the listing. &nbsp; Allan &nbsp;&nbsp; &nbsp;Heres what I done so far: &nbsp; &lt;div style=&quot;color:Black;background-color:White; &lt;pre&gt;&lt;span style=&quot;color:Blue; Imports System&lt;span style=&quot;color:Blue; Imports System.IO&lt;span style=&quot;color:Blue; Imports System.Text&lt;span style=&quot;color:Blue; Public &lt;span style=&quot;color:Blue; Class frmKAOS&nbsp; &lt;span style=&quot;color:Blue; Private &lt;span style=&quot;color:Blue; Sub frmKAOS_FormClosing(&lt;span style=&quot;color:Blue; ByVal sender &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; Object, &lt;span style=&quot;color:Blue; ByVal e &lt;span style=&quot;color:Blue; As System.Windows.Forms.FormClosingEventArgs) &lt;span style=&quot;color:Blue; Handles &lt;span style=&quot;color:Blue; Me.FormClosing&nbsp; &nbsp; &lt;span style=&quot;color:Blue; If MessageBox.Show(&lt;span style=&quot;color:#A31515; &quot;Are you sure that you want to exit KAOS5?&quot;, &lt;span style=&quot;color:#A31515; &quot;Exit KAOS5&quot;, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; e.Cancel = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Else&nbsp; &nbsp; &nbsp; e.Cancel = &lt;span style=&quot;color:Blue; True&nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; Sub&nbsp; &lt;span style=&quot;color:Blue; Private &lt;span style=&quot;color:Blue; Sub Form1_Load(&lt;span style=&quot;color:Blue; ByVal sender &lt;span style=&quot;color:Blue; As System.Object, &lt;span style=&quot;color:Blue; ByVal e &lt;span style=&quot;color:Blue; As System.EventArgs) &lt;span style=&quot;color:Blue; Handles &lt;span style=&quot;color:Blue; MyBase.Load&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim drvs() &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = System.IO.Directory.GetLogicalDrives()&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim i &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; Long&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Me.Text = &lt;span style=&quot;color:#A31515; &quot;KAOS5&quot;&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Me.StartPosition = FormStartPosition.CenterScreen&nbsp; &nbsp; &lt;span style=&quot;color:Green; Me.WindowState = FormWindowState.Maximized&nbsp; &nbsp; OpenToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; PlayToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; PauseToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; ResumeToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; StopToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; CloseToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; SaveToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; songsDataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect&nbsp; &nbsp; songsDataGridView1.MultiSelect = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; tbVolume.Enabled = 0&nbsp; &nbsp; tbVolume.Minimum = 0&nbsp; &nbsp; tbVolume.Maximum = 1000&nbsp; &nbsp; tbVolume.Value = 0&nbsp; &nbsp; lblVolume.Text = &lt;span style=&quot;color:#A31515; &quot;0&quot;&nbsp; &nbsp; tbVolume.TickFrequency = 100&nbsp; &nbsp; Timer1.Interval = 900 &lt;span style=&quot;color:Green; Roughly every sec (even though its in millisecs I prefer using 900 to 1000)&nbsp; &nbsp; Timer1.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; lblNoOfFiles.Text = &lt;span style=&quot;color:#A31515; &quot;0&quot;&nbsp; &nbsp; lblProgress.Text = &lt;span style=&quot;color:#A31515; &quot;0&quot;&nbsp; &nbsp; songsDataGridView1.ScrollBars = ScrollBars.Both&nbsp; &nbsp; songsDataGridView1.Size = &lt;span style=&quot;color:Blue; New Size(&lt;span style=&quot;color:Blue; Me.Width - 50, &lt;span style=&quot;color:Blue; Me.Height - (ProgressBar1.Height + 230))&nbsp; &nbsp; songsDataGridView1.ColumnCount = 12 &lt;span style=&quot;color:Green;&nbsp; not 13 as Im not showing the tag - nothing to do with being superstitious about 13&nbsp; &nbsp; songsDataGridView1.Columns(0).Width = 30 * 16&nbsp; &nbsp; songsDataGridView1.Columns(1).Width = 30 * 16&nbsp; &nbsp; songsDataGridView1.Columns(2).Width = 30 * 16&nbsp; &nbsp; &lt;span style=&quot;color:Green; songsDataGridView1.Columns(3).Width = 4 * 16&nbsp; &nbsp; songsDataGridView1.Columns(4).Width = 30 * 16&nbsp; &nbsp; &lt;span style=&quot;color:Green; songsDataGridView1.Columns(5).Width = 1 * 16&nbsp; &nbsp; songsDataGridView1.Columns(6).Width = 3 * 16&nbsp; &nbsp; &lt;span style=&quot;color:Green; songsDataGridView1.Columns(7).Width = 1 * 16&nbsp; &nbsp; songsDataGridView1.Columns(8).Width = 30 * 16&nbsp; &nbsp; songsDataGridView1.Columns(9).Width = 256 * 16&nbsp; &nbsp; &lt;span style=&quot;color:Green; The column widths are in pixels - Ive allowed 16 pixels per character&nbsp; &nbsp; &lt;span style=&quot;color:Green; songsDataGridView1.Columns(0).Name = &quot;TAG&quot; Not showing the tag&nbsp; &nbsp; songsDataGridView1.Columns(0).Name = &lt;span style=&quot;color:#A31515; &quot;Title&quot;&nbsp; &nbsp; songsDataGridView1.Columns(1).Name = &lt;span style=&quot;color:#A31515; &quot;Artist&quot;&nbsp; &nbsp; songsDataGridView1.Columns(2).Name = &lt;span style=&quot;color:#A31515; &quot;Album&quot;&nbsp; &nbsp; songsDataGridView1.Columns(3).Name = &lt;span style=&quot;color:#A31515; &quot;Year&quot;&nbsp; &nbsp; songsDataGridView1.Columns(4).Name = &lt;span style=&quot;color:#A31515; &quot;Comment&quot;&nbsp; &nbsp; songsDataGridView1.Columns(5).Name = &lt;span style=&quot;color:#A31515; &quot;Zero Byte&quot;&nbsp; &nbsp; songsDataGridView1.Columns(6).Name = &lt;span style=&quot;color:#A31515; &quot;#&quot;&nbsp; &nbsp; songsDataGridView1.Columns(7).Name = &lt;span style=&quot;color:#A31515; &quot;Genre Byte&quot;&nbsp; &nbsp; songsDataGridView1.Columns(8).Name = &lt;span style=&quot;color:#A31515; &quot;Genre String&quot;&nbsp; &nbsp; songsDataGridView1.Columns(9).Name = &lt;span style=&quot;color:#A31515; &quot;Path&quot;&nbsp; &nbsp; songsDataGridView1.Columns(10).Name = &lt;span style=&quot;color:#A31515; &quot;Size (in bytes)&quot;&nbsp; &nbsp; songsDataGridView1.Columns(11).Name = &lt;span style=&quot;color:#A31515; &quot;Playing time&quot;&nbsp; &nbsp; &lt;span style=&quot;color:Green; Populate the drive combobox with a list of logical drives&nbsp; &nbsp; &lt;span style=&quot;color:Blue; For i = drvs.GetLowerBound(0) &lt;span style=&quot;color:Blue; To drvs.GetUpperBound(0)&nbsp; &nbsp; &nbsp; cmbDrives.Items.Add(drvs(i))&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Next i&nbsp; &nbsp; cmbDrives.SelectedIndex = 0&nbsp; &nbsp; txtFileExtension.Text = &lt;span style=&quot;color:#A31515; &quot;mp3&quot; &lt;span style=&quot;color:Green; Default extension&nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; Sub&nbsp; &lt;span style=&quot;color:Blue; Private &lt;span style=&quot;color:Blue; Sub btnExit_Click(&lt;span style=&quot;color:Blue; ByVal sender &lt;span style=&quot;color:Blue; As System.Object, &lt;span style=&quot;color:Blue; ByVal e &lt;span style=&quot;color:Blue; As System.EventArgs) &lt;span style=&quot;color:Blue; Handles btnExit.Click&nbsp; &nbsp; Application.&lt;span style=&quot;color:Blue; Exit()&nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; Sub&nbsp; &lt;span style=&quot;color:Blue; Private &lt;span style=&quot;color:Blue; Sub btnSearch_Click(&lt;span style=&quot;color:Blue; ByVal sender &lt;span style=&quot;color:Blue; As System.Object, &lt;span style=&quot;color:Blue; ByVal e &lt;span style=&quot;color:Blue; As System.EventArgs) &lt;span style=&quot;color:Blue; Handles btnSearch.Click&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Me.DialogResult = System.Windows.Forms.DialogResult.OK&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim tags &lt;span style=&quot;color:Blue; As List(Of &lt;span style=&quot;color:Blue; String), datarow() &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim PlayingTimeColIndex &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; Integer = 11, CurrentRowIndex &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; Integer = 0&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim filename &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String, ret &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; Integer, lpStrReturnString &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = Space(128)&nbsp; &nbsp; &lt;span style=&quot;color:Green; &lt;summary&gt;&nbsp; &nbsp; &lt;span style=&quot;color:Green;&nbsp; Entry point that uses the recursive search directory function.&nbsp; &nbsp; &lt;span style=&quot;color:Green; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Very important note:&nbsp; &nbsp; &lt;span style=&quot;color:Green; By design, this routine DOES NOT CLEAR the grid of found files BECAUSE the user may want to add&nbsp; &nbsp; &lt;span style=&quot;color:Green; files from multiple drive searches (or even want a list of duplicated files - who knows?)!&nbsp; &nbsp; &lt;span style=&quot;color:Green; There is a separate Clear list button to clear the datagrid of files - but its up to the user to&nbsp; &nbsp; &lt;span style=&quot;color:Green; choose to use it - or not.&nbsp; &nbsp; &lt;span style=&quot;color:Green;&nbsp; &lt;/summary&gt;&nbsp; &nbsp; &lt;span style=&quot;color:Green;&nbsp; Get recursive List of all files starting in this directory.&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim drv &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = cmbDrives.SelectedItem&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim start &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = &lt;span style=&quot;color:#A31515; &quot;&quot;&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim ext &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = &lt;span style=&quot;color:#A31515; &quot;&quot;&nbsp; &nbsp; &lt;span style=&quot;color:Blue; If drv = &lt;span style=&quot;color:#A31515; &quot;&quot; &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; drv = &lt;span style=&quot;color:#A31515; &quot;c:&quot;&nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; &lt;span style=&quot;color:Blue; If Microsoft.VisualBasic.Right$(drv, 1) &lt;&gt; &lt;span style=&quot;color:#A31515; &quot;&quot; &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; drv = drv &amp; &lt;span style=&quot;color:#A31515; &quot;&quot;&nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Me.Cursor = Cursors.WaitCursor&nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;Searching....&quot;&nbsp; &nbsp; Application.DoEvents()&nbsp; &nbsp; &lt;span style=&quot;color:Green; Setup the debug window - remember to take out this code in the release version&nbsp; &nbsp; Debug.Close()&nbsp; &nbsp; Debugger.Launch()&nbsp; &nbsp; Debug.Flush()&nbsp; &nbsp; Debug.AutoFlush() = &lt;span style=&quot;color:Blue; True&nbsp; &nbsp; start = drv&nbsp; &nbsp; &lt;span style=&quot;color:Green; ToDo: I should validate the start folder here to see if its a valid one&nbsp; &nbsp; &lt;span style=&quot;color:Blue; If txtStartFolder.Text &lt;&gt; &lt;span style=&quot;color:#A31515; &quot;&quot; &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; start = start &amp; txtStartFolder.Text&nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; ext = txtFileExtension.Text&nbsp; &nbsp; &lt;span style=&quot;color:Blue; If Microsoft.VisualBasic.Left(ext, 2) &lt;&gt; &lt;span style=&quot;color:#A31515; &quot;*.&quot; &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; ext = &lt;span style=&quot;color:#A31515; &quot;*.&quot; &amp; ext &lt;span style=&quot;color:Green; Extension should really be validated here&nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; GC.Collect() &lt;span style=&quot;color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling&nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;Starting search of directory &quot; &amp; start&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim list &lt;span style=&quot;color:Blue; As List(Of &lt;span style=&quot;color:Blue; String) = GetFilesRecursive(start, ext)&nbsp; &nbsp; MsgBox(&lt;span style=&quot;color:#A31515; &quot;Search of &quot; &amp; start &amp; &lt;span style=&quot;color:#A31515; &quot; done. Starting to process the found files.&quot;)&nbsp; &nbsp; Application.DoEvents()&nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;Processing found files&quot;&nbsp; &nbsp; ProgressBar1.Minimum = 0&nbsp; &nbsp; ProgressBar1.Maximum = list.&lt;span style=&quot;color:Blue; Count&nbsp; &nbsp; ProgressBar1.Value = 0&nbsp; &nbsp; &lt;span style=&quot;color:Blue; If list.&lt;span style=&quot;color:Blue; Count = 0 &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;No such start directory&quot;&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Me.Cursor = Cursors.&lt;span style=&quot;color:Blue; Default&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Exit &lt;span style=&quot;color:Blue; Sub&nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; lblNoOfFiles.Text = list.&lt;span style=&quot;color:Blue; Count&nbsp; &nbsp; &lt;span style=&quot;color:Blue; For &lt;span style=&quot;color:Blue; Each path &lt;span style=&quot;color:Blue; In list&nbsp; &nbsp; &nbsp; tags = ReadTags(path)&nbsp; &nbsp; &nbsp; ProgressBar1.Value = ProgressBar1.Value + 1&nbsp; &nbsp; &nbsp; lblProgress.Text = Int((ProgressBar1.Value / ProgressBar1.Maximum) * 100)&nbsp; &nbsp; &nbsp; datarow = tags.ToArray&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; If tags.&lt;span style=&quot;color:Blue; Count &gt; 0 &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; &nbsp; songsDataGridView1.Rows.Add(datarow)&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; I find that getting the playing times makes the initial processing of the files &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; waaaaaaay too long unfortunately&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; (it increases the processing time per file by a factor of about 10x (my impression) which&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; would normally be unacceptable, but its ok for a first time use and then the user has the&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; option to save the processed list to a file or to read the list back from a file in the &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; future.&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Surprisingly, although displaying the name of the file being processed slows things down &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; a tad even more, psychologically it makes the wait more tolerable since the user actually sees &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; that things are happening - and so the wait becomes a tad more tolerable.&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; &nbsp; &nbsp; &nbsp; &nbsp; filename = songsDataGridView1(9, CurrentRowIndex).Value&nbsp; &nbsp; &nbsp; &nbsp; ret = mciSendString(&lt;span style=&quot;color:#A31515; &quot;Open &quot; &amp; Chr(34) &amp; filename &amp; Chr(34) &amp; &lt;span style=&quot;color:#A31515; &quot; alias audio wait&quot;, &lt;span style=&quot;color:Blue; CStr(0), 0, 0)&nbsp; &nbsp; &nbsp; &nbsp; ret = mciSendString(&lt;span style=&quot;color:#A31515; &quot;set audio time milliseconds wait&quot;, &lt;span style=&quot;color:Blue; CStr(0), 0, 0)&nbsp; &nbsp; &nbsp; &nbsp; ret = mciSendString(&lt;span style=&quot;color:#A31515; &quot;status audio length wait&quot;, lpStrReturnString, Len(lpStrReturnString), 0)&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Note: the plaing time cannot be determeined for all files for some strange reason&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; If ret &lt;&gt; 0 &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;Unable to set/get time format and playing time for &quot; &amp; filename&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; songsDataGridView1(PlayingTimeColIndex, CurrentRowIndex).Value = &lt;span style=&quot;color:#A31515; &quot;Unknown&quot;&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim PT &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = ConvertToShortTime(Trim(lpStrReturnString))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; songsDataGridView1(PlayingTimeColIndex, CurrentRowIndex).Value = PT&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;Playing time for &quot; &amp; filename &amp; &lt;span style=&quot;color:#A31515; &quot; is &quot; &amp; PT&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; &nbsp; &nbsp; CurrentRowIndex = CurrentRowIndex + 1&nbsp; &nbsp; &nbsp; &nbsp; ret = mciSendString(&lt;span style=&quot;color:#A31515; &quot;close audio wait&quot;, &lt;span style=&quot;color:Blue; CStr(0), 0, 0)&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Im concerned that with thousands of files to process I have to try to keep the memory &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; footprint/usage down. I wish that the ID3 v1.0 specification included a milliseconds playing&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; time field in the ID3 frame - then getting the playing times initially wouldnt be a hassle.&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; I know that one of the proposed extended ID3 tags specs. do - but so few MP3s use them (and &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; it would require IF tests per file hence thousands of extra IFs being executed)&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; that it isnt really worth checking for extended specification MP3 tags.&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Coding KAOS makes me appreciate wmp even more - despite its shortcomings!&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; &nbsp; &nbsp; &nbsp; &nbsp; Application.DoEvents()&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Next&nbsp; &nbsp; &lt;span style=&quot;color:Green;&nbsp; Write total number of paths found.&nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;Processing of found files done: &quot; &amp; songsDataGridView1.Rows.&lt;span style=&quot;color:Blue; Count - 1 &amp; &lt;span style=&quot;color:#A31515; &quot; files found. You are advised to save the list.&quot;&nbsp; &nbsp; MsgBox(&lt;span style=&quot;color:#A31515; &quot;Processing of found files done: &quot; &amp; songsDataGridView1.Rows.&lt;span style=&quot;color:Blue; Count - 1 &amp; &lt;span style=&quot;color:#A31515; &quot; files found. You are advised to save the list.&quot;)&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Me.Cursor = Cursors.&lt;span style=&quot;color:Blue; Default&nbsp; &nbsp; &lt;span style=&quot;color:Green; MsgBox(&quot;Select a file with a left click, and then right click on that file to play it etc.&quot;, MsgBoxStyle.OkOnly, &quot;Help&quot;) Hopefully, we wont need a left click now&nbsp; &nbsp; MsgBox(&lt;span style=&quot;color:#A31515; &quot;Select a file with a right click to play it etc.&quot;, MsgBoxStyle.OkOnly, &lt;span style=&quot;color:#A31515; &quot;Help&quot;) &lt;span style=&quot;color:Green; Hopefully, this will be true&nbsp; &nbsp; Application.DoEvents()&nbsp; &nbsp; OpenToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; True&nbsp; &nbsp; PlayToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; PauseToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; ResumeToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; StopToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; CloseToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; SaveToolStripMenuItem.Enabled = &lt;span style=&quot;color:Blue; False&nbsp; &nbsp; Debug.Close()&nbsp; &nbsp; &lt;span style=&quot;color:Green; Update the files list&nbsp; &nbsp; GC.Collect() &lt;span style=&quot;color:Green; Force a garbage collection because we have likely done a LOT of string handling&nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; Sub&nbsp; &lt;span style=&quot;color:Blue; Private &lt;span style=&quot;color:Blue; Sub SavePlaylistToolStripMenu_Click(&lt;span style=&quot;color:Blue; ByVal sender &lt;span style=&quot;color:Blue; As System.Object, &lt;span style=&quot;color:Blue; ByVal e &lt;span style=&quot;color:Blue; As System.EventArgs) &lt;span style=&quot;color:Blue; Handles SavePlaylistToolStripMenu.Click&nbsp; &nbsp; &lt;span style=&quot;color:Green; Check if any files are in the datagrid&nbsp; &nbsp; &lt;span style=&quot;color:Blue; If songsDataGridView1.RowCount &gt; 0 &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; GC.Collect() &lt;span style=&quot;color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Save the datagrid&nbsp; &nbsp; &nbsp; SaveFileDialog1.Filter = &lt;span style=&quot;color:#A31515; &quot;KAOS Playlist|*.kpl|Text|*.txt&quot;&nbsp; &nbsp; &nbsp; SaveFileDialog1.Title = &lt;span style=&quot;color:#A31515; &quot;Save a Playlist File&quot;&nbsp; &nbsp; &nbsp; SaveFileDialog1.CheckPathExists = &lt;span style=&quot;color:Blue; True&nbsp; &nbsp; &nbsp; SaveFileDialog1.DefaultExt = &lt;span style=&quot;color:#A31515; &quot;*.kpl&quot;&nbsp; &nbsp; &nbsp; SaveFileDialog1.InitialDirectory = Application.LocalUserAppDataPath&nbsp; &nbsp; &nbsp; SaveFileDialog1.FileName = &lt;span style=&quot;color:#A31515; &quot;&quot;&nbsp; &nbsp; &nbsp; SaveFileDialog1.ShowDialog()&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green;&nbsp; If the file name is not an empty string open it for saving.&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; If SaveFileDialog1.FileName &lt;&gt; &lt;span style=&quot;color:#A31515; &quot;&quot; &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; &nbsp; ProgressBar1.Minimum = 0&nbsp; &nbsp; &nbsp; &nbsp; ProgressBar1.Maximum = songsDataGridView1.Rows.&lt;span style=&quot;color:Blue; Count&nbsp; &nbsp; &nbsp; &nbsp; ProgressBar1.Value = 0&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim path &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = SaveFileDialog1.FileName&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green;&nbsp; Delete the current file if it exists.&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; If File.Exists(path) &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; File.Delete(path)&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Create the new file -- note, saved as plain ASCII so that the user can view it in notepad, etc.&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim NextLine &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = &lt;span style=&quot;color:#A31515; &quot;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim fs &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; New FileStream(path, FileMode.Append, FileAccess.Write, FileShare.Write)&nbsp; &nbsp; &nbsp; &nbsp; fs.Close()&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim sw &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; New StreamWriter(path, &lt;span style=&quot;color:Blue; True, Encoding.ASCII)&nbsp; &nbsp; &nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;Saving grid data...&quot;&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; For rows = 0 &lt;span style=&quot;color:Blue; To songsDataGridView1.Rows.&lt;span style=&quot;color:Blue; Count - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NextLine = &lt;span style=&quot;color:#A31515; &quot;&quot; &lt;span style=&quot;color:Green; An extremely important line - do NOT forget to nullify this string &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; each time in the loop before adding columns - otherwise the processing will really be VERY,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; VERY slow and the resultant file will likely be megabytes of text rather than a few kbs or 100s kbs.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Get the column content values (separated by commas)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; For column = 0 &lt;span style=&quot;color:Blue; To 11&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NextLine = NextLine &amp; &lt;span style=&quot;color:#A31515; &quot;,&quot; &amp; songsDataGridView1(column, rows).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Write the line of comma delineated values&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; lblSysMessage.Text = NextLine&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; sw.WriteLine(Microsoft.VisualBasic.Mid(NextLine, 2)) &lt;span style=&quot;color:Green; Ignore 1st comma and use writeline to get LFCRs instead of write&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ProgressBar1.Value = ProgressBar1.Value + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; lblProgress.Text = Int((ProgressBar1.Value / ProgressBar1.Maximum) * 100)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.DoEvents()&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Next&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Close the file&nbsp; &nbsp; &nbsp; &nbsp; sw.Close()&nbsp; &nbsp; &nbsp; &nbsp; lblSysMessage.Text = &lt;span style=&quot;color:#A31515; &quot;Grid data saved.&quot;&nbsp; &nbsp; &nbsp; &nbsp; Application.DoEvents()&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; GC.Collect() &lt;span style=&quot;color:Green; Force a garbage collection because we have likely done a LOT of string handling&nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; Sub&nbsp; &lt;span style=&quot;color:Blue; Private &lt;span style=&quot;color:Blue; Sub OpenPlayListToolStripMenu_Click(&lt;span style=&quot;color:Blue; ByVal sender &lt;span style=&quot;color:Blue; As System.Object, &lt;span style=&quot;color:Blue; ByVal e &lt;span style=&quot;color:Blue; As System.EventArgs) &lt;span style=&quot;color:Blue; Handles OpenPlayListToolStripMenu.Click&nbsp; &nbsp; GC.Collect() &lt;span style=&quot;color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling&nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim myStream &lt;span style=&quot;color:Blue; As Stream = &lt;span style=&quot;color:Blue; Nothing, tags &lt;span style=&quot;color:Blue; As List(Of &lt;span style=&quot;color:Blue; String) = &lt;span style=&quot;color:Blue; Nothing&nbsp; &nbsp; &lt;span style=&quot;color:Green; Open the datagrid&nbsp; &nbsp; OpenFileDialog1.Title = &lt;span style=&quot;color:#A31515; &quot;Open a Playlist File&quot;&nbsp; &nbsp; OpenFileDialog1.CheckPathExists = &lt;span style=&quot;color:Blue; True&nbsp; &nbsp; OpenFileDialog1.DefaultExt = &lt;span style=&quot;color:#A31515; &quot;*.kpl&quot;&nbsp; &nbsp; OpenFileDialog1.InitialDirectory = Application.LocalUserAppDataPath&nbsp; &nbsp; OpenFileDialog1.Filter = &lt;span style=&quot;color:#A31515; &quot;KAOS Playlist files (*.kpl)|*.kpl|All files (*.*)|*.*&quot;&nbsp; &nbsp; OpenFileDialog1.FilterIndex = 1&nbsp; &nbsp; OpenFileDialog1.RestoreDirectory = &lt;span style=&quot;color:Blue; True&nbsp; &nbsp; OpenFileDialog1.FileName = &lt;span style=&quot;color:#A31515; &quot;&quot;&nbsp; &nbsp; &lt;span style=&quot;color:Blue; If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Try&nbsp; &nbsp; &nbsp; &nbsp; myStream = OpenFileDialog1.OpenFile()&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; If (myStream &lt;span style=&quot;color:Blue; IsNot &lt;span style=&quot;color:Blue; Nothing) &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim sr &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; New StreamReader(OpenFileDialog1.FileName, detectEncodingFromByteOrderMarks:=&lt;span style=&quot;color:Blue; True)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim line &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = &lt;span style=&quot;color:#A31515; &quot;&quot;, k &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; Integer = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Dim title &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = Space(30), Artist &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = Space(30), album &lt;span style=&quot;color:Blue; As &lt;span style=&quot;color:Blue; String = Space(30)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Do&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; line = sr.ReadLine()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; lblSysMessage.Text = line &lt;span style=&quot;color:Green; Display the line just read&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Parse and split the line here&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Wonder whats the best way to do in .net? Ask the forum&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; For now, do this:&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; title = Microsoft.VisualBasic.Left(line, 30)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Artist = Microsoft.VisualBasic.Mid(line, 31, 30)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; album = Microsoft.VisualBasic.Mid(line, 61, 30)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Ok the above lines work - but how on Earth do I add them to a blank data grid????&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Jesus, how do I read the damn file back into the gridarray?????&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Ive tried all sorts - but keep getting index exceptions or some such crap!&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Why have M$ made what used to be really tasks so damn hard?????&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Pulling my little remaining hair out here - this is why I keep geting fed up of .Net&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; and go back to good ol VB6 or QB or whatever - using .Net is like being caught in&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; a net - I guess its apply named!&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; tags.Item(0).add = title&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; tags.Item(1) = Artist&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; tags.Item(2) = album&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Nope building up a List(Of strings) doont help either grrrrrrrrr&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; songsDataGridView1.Rows.Add(tags)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; The following dont work either&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; songsDataGridView1(k, 0).Value = title&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; songsDataGridView1(k, 1).Value = Artist&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; songsDataGridView1(k, 2).Value = album&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Watch it be something simple yet daft like songsDataGridView1(0,0).ReadFile&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; or something&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green; Note: the grid is being written to the file just dandy - as notepad proves!&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; k = k + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.DoEvents()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Loop &lt;span style=&quot;color:Blue; Until line &lt;span style=&quot;color:Blue; Is &lt;span style=&quot;color:Blue; Nothing&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; sr.Close()&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Catch Ex &lt;span style=&quot;color:Blue; As Exception&nbsp; &nbsp; &nbsp; &nbsp; MessageBox.Show(&lt;span style=&quot;color:#A31515; &quot;Cannot read file from disk. Original error: &quot; &amp; Ex.Message)&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; Finally&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Green;&nbsp; Check this again, since we need to make sure we didnt throw an exception on open.&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; If (myStream &lt;span style=&quot;color:Blue; IsNot &lt;span style=&quot;color:Blue; Nothing) &lt;span style=&quot;color:Blue; Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; myStream.Close()&nbsp; &nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; Try&nbsp; &nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; If&nbsp; &lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; Sub&lt;span style=&quot;color:Blue; End &lt;span style=&quot;color:Blue; Class[/code] &nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &lt;hr class=&quot;sig Big Al<a href="http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/719d9b3e-ba70-45e9-91cf-82e8290375ae" target="_blank">View the full article</a></blockquote>

[QUOTE="EDN Admin, post: 764572, member: 20559"] Hi Reed I decided to rewrite my project. Hit another snag. How do I write the contents from a datagrid to a file and back into the datagrid again later????? (Actually, Ive done the writing ok - but for the life of me cant get the data back into a blank datagrid. The MS help on readline is about as much use as a chocolate fireguard. Again, the problem is somehwere near the bottom of the listing. Allan Heres what I done so far: <div style="color:Black;background-color:White; <pre> <span style="color:Blue; Imports System <span style="color:Blue; Imports System.IO <span style="color:Blue; Imports System.Text <span style="color:Blue; Public <span style="color:Blue; Class frmKAOS <span style="color:Blue; Private <span style="color:Blue; Sub frmKAOS_FormClosing(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.FormClosingEventArgs) <span style="color:Blue; Handles <span style="color:Blue; Me.FormClosing <span style="color:Blue; If MessageBox.Show(<span style="color:#A31515; "Are you sure that you want to exit KAOS5?", <span style="color:#A31515; "Exit KAOS5", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes <span style="color:Blue; Then e.Cancel = <span style="color:Blue; False <span style="color:Blue; Else e.Cancel = <span style="color:Blue; True <span style="color:Blue; End <span style="color:Blue; If <span style="color:Blue; End <span style="color:Blue; Sub <span style="color:Blue; Private <span style="color:Blue; Sub Form1_Load(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles <span style="color:Blue; MyBase.Load <span style="color:Blue; Dim drvs() <span style="color:Blue; As <span style="color:Blue; String = System.IO.Directory.GetLogicalDrives() <span style="color:Blue; Dim i <span style="color:Blue; As <span style="color:Blue; Long <span style="color:Blue; Me.Text = <span style="color:#A31515; "KAOS5" <span style="color:Blue; Me.StartPosition = FormStartPosition.CenterScreen <span style="color:Green; Me.WindowState = FormWindowState.Maximized OpenToolStripMenuItem.Enabled = <span style="color:Blue; False PlayToolStripMenuItem.Enabled = <span style="color:Blue; False PauseToolStripMenuItem.Enabled = <span style="color:Blue; False ResumeToolStripMenuItem.Enabled = <span style="color:Blue; False StopToolStripMenuItem.Enabled = <span style="color:Blue; False CloseToolStripMenuItem.Enabled = <span style="color:Blue; False SaveToolStripMenuItem.Enabled = <span style="color:Blue; False songsDataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect songsDataGridView1.MultiSelect = <span style="color:Blue; False tbVolume.Enabled = 0 tbVolume.Minimum = 0 tbVolume.Maximum = 1000 tbVolume.Value = 0 lblVolume.Text = <span style="color:#A31515; "0" tbVolume.TickFrequency = 100 Timer1.Interval = 900 <span style="color:Green; Roughly every sec (even though its in millisecs I prefer using 900 to 1000) Timer1.Enabled = <span style="color:Blue; False lblNoOfFiles.Text = <span style="color:#A31515; "0" lblProgress.Text = <span style="color:#A31515; "0" songsDataGridView1.ScrollBars = ScrollBars.Both songsDataGridView1.Size = <span style="color:Blue; New Size(<span style="color:Blue; Me.Width - 50, <span style="color:Blue; Me.Height - (ProgressBar1.Height + 230)) songsDataGridView1.ColumnCount = 12 <span style="color:Green; not 13 as Im not showing the tag - nothing to do with being superstitious about 13 songsDataGridView1.Columns(0).Width = 30 * 16 songsDataGridView1.Columns(1).Width = 30 * 16 songsDataGridView1.Columns(2).Width = 30 * 16 <span style="color:Green; songsDataGridView1.Columns(3).Width = 4 * 16 songsDataGridView1.Columns(4).Width = 30 * 16 <span style="color:Green; songsDataGridView1.Columns(5).Width = 1 * 16 songsDataGridView1.Columns(6).Width = 3 * 16 <span style="color:Green; songsDataGridView1.Columns(7).Width = 1 * 16 songsDataGridView1.Columns(8).Width = 30 * 16 songsDataGridView1.Columns(9).Width = 256 * 16 <span style="color:Green; The column widths are in pixels - Ive allowed 16 pixels per character <span style="color:Green; songsDataGridView1.Columns(0).Name = "TAG" Not showing the tag songsDataGridView1.Columns(0).Name = <span style="color:#A31515; "Title" songsDataGridView1.Columns(1).Name = <span style="color:#A31515; "Artist" songsDataGridView1.Columns(2).Name = <span style="color:#A31515; "Album" songsDataGridView1.Columns(3).Name = <span style="color:#A31515; "Year" songsDataGridView1.Columns(4).Name = <span style="color:#A31515; "Comment" songsDataGridView1.Columns(5).Name = <span style="color:#A31515; "Zero Byte" songsDataGridView1.Columns(6).Name = <span style="color:#A31515; "#" songsDataGridView1.Columns(7).Name = <span style="color:#A31515; "Genre Byte" songsDataGridView1.Columns(8).Name = <span style="color:#A31515; "Genre String" songsDataGridView1.Columns(9).Name = <span style="color:#A31515; "Path" songsDataGridView1.Columns(10).Name = <span style="color:#A31515; "Size (in bytes)" songsDataGridView1.Columns(11).Name = <span style="color:#A31515; "Playing time" <span style="color:Green; Populate the drive combobox with a list of logical drives <span style="color:Blue; For i = drvs.GetLowerBound(0) <span style="color:Blue; To drvs.GetUpperBound(0) cmbDrives.Items.Add(drvs(i)) <span style="color:Blue; Next i cmbDrives.SelectedIndex = 0 txtFileExtension.Text = <span style="color:#A31515; "mp3" <span style="color:Green; Default extension <span style="color:Blue; End <span style="color:Blue; Sub <span style="color:Blue; Private <span style="color:Blue; Sub btnExit_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles btnExit.Click Application.<span style="color:Blue; Exit() <span style="color:Blue; End <span style="color:Blue; Sub <span style="color:Blue; Private <span style="color:Blue; Sub btnSearch_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles btnSearch.Click <span style="color:Blue; Me.DialogResult = System.Windows.Forms.DialogResult.OK <span style="color:Blue; Dim tags <span style="color:Blue; As List(Of <span style="color:Blue; String), datarow() <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; Dim PlayingTimeColIndex <span style="color:Blue; As <span style="color:Blue; Integer = 11, CurrentRowIndex <span style="color:Blue; As <span style="color:Blue; Integer = 0 <span style="color:Blue; Dim filename <span style="color:Blue; As <span style="color:Blue; String, ret <span style="color:Green; Entry point that uses the recursive search directory function. <span style="color:Green; <span style="color:Green; Very important note: <span style="color:Green; By design, this routine DOES NOT CLEAR the grid of found files BECAUSE the user may want to add <span style="color:Green; files from multiple drive searches (or even want a list of duplicated files - who knows?)! <span style="color:Green; There is a separate Clear list button to clear the datagrid of files - but its up to the user to <span style="color:Green; Get recursive List of all files starting in this directory. <span style="color:Blue; Dim drv <span style="color:Blue; As <span style="color:Blue; String = cmbDrives.SelectedItem <span style="color:Blue; Dim start <span style="color:Blue; As <span style="color:Blue; String = <span style="color:#A31515; "" <span style="color:Blue; Dim ext <span style="color:Blue; As <span style="color:Blue; String = <span style="color:#A31515; "" <span style="color:Blue; If drv = <span style="color:#A31515; "" <span style="color:#A31515; "" <span style="color:Blue; Then drv = drv & <span style="color:#A31515; "" <span style="color:Blue; End <span style="color:Blue; If <span style="color:Blue; Me.Cursor = Cursors.WaitCursor lblSysMessage.Text = <span style="color:#A31515; "Searching...." Application.DoEvents() <span style="color:Green; Setup the debug window - remember to take out this code in the release version Debug.Close() Debugger.Launch() Debug.Flush() Debug.AutoFlush() = <span style="color:#A31515; "" <span style="color:Blue; Then start = start & txtStartFolder.Text <span style="color:#A31515; "*." <span style="color:Blue; Then ext = <span style="color:#A31515; "*." & ext <span style="color:Green; Extension should really be validated here <span style="color:Blue; End <span style="color:Blue; If GC.Collect() <span style="color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling lblSysMessage.Text = <span style="color:#A31515; "Starting search of directory " & start <span style="color:Blue; Dim list <span style="color:Blue; As List(Of <span style="color:Blue; String) = GetFilesRecursive(start, ext) MsgBox(<span style="color:#A31515; "Search of " & start & <span style="color:#A31515; " done. Starting to process the found files.") Application.DoEvents() lblSysMessage.Text = <span style="color:#A31515; "Processing found files" ProgressBar1.Minimum = 0 ProgressBar1.Maximum = list.<span style="color:Blue; Count ProgressBar1.Value = 0 <span style="color:Blue; If list.<span style="color:Blue; Count = 0 <span style="color:Blue; Then lblSysMessage.Text = <span style="color:#A31515; "No such start directory" <span style="color:Blue; Me.Cursor = Cursors.<span style="color:Blue; Default <span style="color:Blue; Exit <span style="color:Blue; Sub <span style="color:Blue; End <span style="color:Blue; If lblNoOfFiles.Text = list.<span style="color:Blue; Count <span style="color:Blue; For <span style="color:Blue; Each path <span style="color:Blue; In list tags = ReadTags(path) ProgressBar1.Value = ProgressBar1.Value + 1 lblProgress.Text = Int((ProgressBar1.Value / ProgressBar1.Maximum) * 100) datarow = tags.ToArray 0 <span style="color:Blue; Then songsDataGridView1.Rows.Add(datarow) <span style="color:Green; I find that getting the playing times makes the initial processing of the files <span style="color:Green; waaaaaaay too long unfortunately <span style="color:Green; (it increases the processing time per file by a factor of about 10x (my impression) which <span style="color:Green; would normally be unacceptable, but its ok for a first time use and then the user has the <span style="color:Green; option to save the processed list to a file or to read the list back from a file in the <span style="color:Green; future. <span style="color:Green; Surprisingly, although displaying the name of the file being processed slows things down <span style="color:Green; a tad even more, psychologically it makes the wait more tolerable since the user actually sees <span style="color:Green; that things are happening - and so the wait becomes a tad more tolerable. <span style="color:Green; filename = songsDataGridView1(9, CurrentRowIndex).Value ret = mciSendString(<span style="color:#A31515; "Open " & Chr(34) & filename & Chr(34) & <span style="color:#A31515; " alias audio wait", <span style="color:Blue; CStr(0), 0, 0) ret = mciSendString(<span style="color:#A31515; "set audio time milliseconds wait", <span style="color:Blue; CStr(0), 0, 0) ret = mciSendString(<span style="color:#A31515; "status audio length wait", lpStrReturnString, Len(lpStrReturnString), 0) 0 <span style="color:Blue; Then lblSysMessage.Text = <span style="color:#A31515; "Unable to set/get time format and playing time for " & filename songsDataGridView1(PlayingTimeColIndex, CurrentRowIndex).Value = <span style="color:#A31515; "Unknown" <span style="color:Blue; Else <span style="color:Blue; Dim PT <span style="color:Blue; As <span style="color:Blue; String = ConvertToShortTime(Trim(lpStrReturnString)) songsDataGridView1(PlayingTimeColIndex, CurrentRowIndex).Value = PT lblSysMessage.Text = <span style="color:#A31515; "Playing time for " & filename & <span style="color:#A31515; " is " & PT <span style="color:Blue; End <span style="color:Blue; If CurrentRowIndex = CurrentRowIndex + 1 ret = mciSendString(<span style="color:#A31515; "close audio wait", <span style="color:Blue; CStr(0), 0, 0) <span style="color:Green; Im concerned that with thousands of files to process I have to try to keep the memory <span style="color:Green; footprint/usage down. I wish that the ID3 v1.0 specification included a milliseconds playing <span style="color:Green; time field in the ID3 frame - then getting the playing times initially wouldnt be a hassle. <span style="color:Green; I know that one of the proposed extended ID3 tags specs. do - but so few MP3s use them (and <span style="color:Green; it would require IF tests per file hence thousands of extra IFs being executed) <span style="color:Green; that it isnt really worth checking for extended specification MP3 tags. <span style="color:Green; <span style="color:Green; Coding KAOS makes me appreciate wmp even more - despite its shortcomings! <span style="color:Green; Application.DoEvents() <span style="color:Blue; End <span style="color:Blue; If <span style="color:Blue; Next <span style="color:Green; Write total number of paths found. lblSysMessage.Text = <span style="color:#A31515; "Processing of found files done: " & songsDataGridView1.Rows.<span style="color:Blue; Count - 1 & <span style="color:#A31515; " files found. You are advised to save the list." MsgBox(<span style="color:#A31515; "Processing of found files done: " & songsDataGridView1.Rows.<span style="color:Blue; Count - 1 & <span style="color:#A31515; " files found. You are advised to save the list.") <span style="color:Blue; Me.Cursor = Cursors.<span style="color:Blue; Default <span style="color:Green; MsgBox("Select a file with a left click, and then right click on that file to play it etc.", MsgBoxStyle.OkOnly, "Help") Hopefully, we wont need a left click now MsgBox(<span style="color:#A31515; "Select a file with a right click to play it etc.", MsgBoxStyle.OkOnly, <span style="color:#A31515; "Help") <span style="color:Green; Hopefully, this will be true Application.DoEvents() OpenToolStripMenuItem.Enabled = <span style="color:Blue; True PlayToolStripMenuItem.Enabled = <span style="color:Blue; False PauseToolStripMenuItem.Enabled = <span style="color:Blue; False ResumeToolStripMenuItem.Enabled = <span style="color:Blue; False StopToolStripMenuItem.Enabled = <span style="color:Blue; False CloseToolStripMenuItem.Enabled = <span style="color:Blue; False SaveToolStripMenuItem.Enabled = <span style="color:Blue; False Debug.Close() <span style="color:Green; Update the files list GC.Collect() <span style="color:Green; Force a garbage collection because we have likely done a LOT of string handling <span style="color:Blue; End <span style="color:Blue; Sub <span style="color:Blue; Private <span style="color:Blue; Sub SavePlaylistToolStripMenu_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) 0 <span style="color:Blue; Then GC.Collect() <span style="color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling <span style="color:Green; Save the datagrid SaveFileDialog1.Filter = <span style="color:#A31515; "KAOS Playlist|*.kpl|Text|*.txt" SaveFileDialog1.Title = <span style="color:#A31515; "Save a Playlist File" SaveFileDialog1.CheckPathExists = <span style="color:Blue; True SaveFileDialog1.DefaultExt = <span style="color:#A31515; "*.kpl" SaveFileDialog1.InitialDirectory = Application.LocalUserAppDataPath SaveFileDialog1.FileName = <span style="color:#A31515; "" <span style="color:Blue; Then ProgressBar1.Minimum = 0 ProgressBar1.Maximum = songsDataGridView1.Rows.<span style="color:Blue; Count ProgressBar1.Value = 0 <span style="color:Blue; Dim path <span style="color:Blue; As <span style="color:Blue; String = SaveFileDialog1.FileName <span style="color:Green; Delete the current file if it exists. <span style="color:Blue; If File.Exists(path) <span style="color:Blue; Then File.Delete(path) <span style="color:Blue; End <span style="color:Blue; If <span style="color:Green; Create the new file -- note, saved as plain ASCII so that the user can view it in notepad, etc. <span style="color:Blue; Dim NextLine <span style="color:Blue; As <span style="color:Blue; String = <span style="color:#A31515; "" <span style="color:Blue; Dim fs <span style="color:Blue; As <span style="color:Blue; New FileStream(path, FileMode.Append, FileAccess.Write, FileShare.Write) fs.Close() <span style="color:Blue; Dim sw <span style="color:Blue; As <span style="color:Blue; New StreamWriter(path, <span style="color:Blue; True, Encoding.ASCII) lblSysMessage.Text = <span style="color:#A31515; "Saving grid data..." <span style="color:Blue; For rows = 0 <span style="color:Blue; To songsDataGridView1.Rows.<span style="color:Blue; Count - 1 NextLine = <span style="color:#A31515; "" <span style="color:Green; An extremely important line - do NOT forget to nullify this string <span style="color:Green; each time in the loop before adding columns - otherwise the processing will really be VERY, <span style="color:Green; VERY slow and the resultant file will likely be megabytes of text rather than a few kbs or 100s kbs. <span style="color:Green; Get the column content values (separated by commas) <span style="color:Blue; For column = 0 <span style="color:Blue; To 11 NextLine = NextLine & <span style="color:#A31515; "," & songsDataGridView1(column, rows).Value <span style="color:Blue; Next <span style="color:Green; Write the line of comma delineated values lblSysMessage.Text = NextLine sw.WriteLine(Microsoft.VisualBasic.Mid(NextLine, 2)) <span style="color:Green; Ignore 1st comma and use writeline to get LFCRs instead of write ProgressBar1.Value = ProgressBar1.Value + 1 lblProgress.Text = Int((ProgressBar1.Value / ProgressBar1.Maximum) * 100) Application.DoEvents() <span style="color:Blue; Next <span style="color:Green; Close the file sw.Close() lblSysMessage.Text = <span style="color:#A31515; "Grid data saved." Application.DoEvents() <span style="color:Blue; End <span style="color:Blue; If <span style="color:Blue; End <span style="color:Blue; If GC.Collect() <span style="color:Green; Force a garbage collection because we have likely done a LOT of string handling <span style="color:Blue; End <span style="color:Blue; Sub <span style="color:Blue; Private <span style="color:Blue; Sub OpenPlayListToolStripMenu_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles OpenPlayListToolStripMenu.Click GC.Collect() <span style="color:Green; Force a garbage collection because we are potentially going to be doing a LOT of string handling <span style="color:Blue; Dim myStream <span style="color:Blue; As Stream = <span style="color:Blue; Nothing, tags <span style="color:Blue; As List(Of <span style="color:Blue; String) = <span style="color:Blue; Nothing <span style="color:Green; Open the datagrid OpenFileDialog1.Title = <span style="color:#A31515; "Open a Playlist File" OpenFileDialog1.CheckPathExists = <span style="color:Blue; True OpenFileDialog1.DefaultExt = <span style="color:#A31515; "*.kpl" OpenFileDialog1.InitialDirectory = Application.LocalUserAppDataPath OpenFileDialog1.Filter = <span style="color:#A31515; "KAOS Playlist files (*.kpl)|*.kpl|All files (*.*)|*.*" OpenFileDialog1.FilterIndex = 1 OpenFileDialog1.RestoreDirectory = <span style="color:Blue; True OpenFileDialog1.FileName = <span style="color:#A31515; "" <span style="color:Blue; If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK <span style="color:Blue; Then <span style="color:Blue; Try myStream = OpenFileDialog1.OpenFile() <span style="color:Blue; If (myStream <span style="color:Blue; IsNot <span style="color:Blue; Nothing) <span style="color:Blue; Then <span style="color:Blue; Dim sr <span style="color:Blue; As <span style="color:Blue; New StreamReader(OpenFileDialog1.FileName, detectEncodingFromByteOrderMarks:=<span style="color:Blue; True) <span style="color:Blue; Dim line <span style="color:Blue; As <span style="color:Blue; String = <span style="color:#A31515; "", k <span style="color:Blue; As <span style="color:Blue; Integer = 0 <span style="color:Blue; Dim title <span style="color:Blue; As <span style="color:Blue; String = Space(30), Artist <span style="color:Blue; As <span style="color:Blue; String = Space(30), album <span style="color:Blue; As <span style="color:Blue; String = Space(30) <span style="color:Blue; Do line = sr.ReadLine() lblSysMessage.Text = line <span style="color:Green; Display the line just read <span style="color:Green; Parse and split the line here <span style="color:Green; Wonder whats the best way to do in .net? Ask the forum <span style="color:Green; For now, do this: <span style="color:Green; title = Microsoft.VisualBasic.Left(line, 30) <span style="color:Green; Artist = Microsoft.VisualBasic.Mid(line, 31, 30) <span style="color:Green; album = Microsoft.VisualBasic.Mid(line, 61, 30) <span style="color:Green; Ok the above lines work - but how on Earth do I add them to a blank data grid???? <span style="color:Green; Jesus, how do I read the damn file back into the gridarray????? <span style="color:Green; Ive tried all sorts - but keep getting index exceptions or some such crap! <span style="color:Green; Why have M$ made what used to be really tasks so damn hard????? <span style="color:Green; Pulling my little remaining hair out here - this is why I keep geting fed up of .Net <span style="color:Green; and go back to good ol VB6 or QB or whatever - using .Net is like being caught in <span style="color:Green; a net - I guess its apply named! <span style="color:Green; tags.Item(0).add = title <span style="color:Green; tags.Item(1) = Artist <span style="color:Green; tags.Item(2) = album <span style="color:Green; Nope building up a List(Of strings) doont help either grrrrrrrrr <span style="color:Green; songsDataGridView1.Rows.Add(tags) <span style="color:Green; The following dont work either <span style="color:Green; songsDataGridView1(k, 0).Value = title <span style="color:Green; songsDataGridView1(k, 1).Value = Artist <span style="color:Green; songsDataGridView1(k, 2).Value = album <span style="color:Green; Watch it be something simple yet daft like songsDataGridView1(0,0).ReadFile <span style="color:Green; or something <span style="color:Green; Note: the grid is being written to the file just dandy - as notepad proves! k = k + 1 Application.DoEvents() <span style="color:Blue; Loop <span style="color:Blue; Until line <span style="color:Blue; Is <span style="color:Blue; Nothing sr.Close() <span style="color:Blue; End <span style="color:Blue; If <span style="color:Blue; Catch Ex <span style="color:Blue; As Exception MessageBox.Show(<span style="color:#A31515; "Cannot read file from disk. Original error: " & Ex.Message) <span style="color:Blue; Finally <span style="color:Green; Check this again, since we need to make sure we didnt throw an exception on open. <span style="color:Blue; If (myStream <span style="color:Blue; IsNot <span style="color:Blue; Nothing) <span style="color:Blue; Then myStream.Close() <span style="color:Blue; End <span style="color:Blue; If <span style="color:Blue; End <span style="color:Blue; Try <span style="color:Blue; End <span style="color:Blue; If <span style="color:Blue; End <span style="color:Blue; Sub <span style="color:Blue; End <span style="color:Blue; Class [/code] <hr class="sig Big Al [url=http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/719d9b3e-ba70-45e9-91cf-82e8290375ae]View the full article[/url] [/QUOTE]

Verification

This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.

Accept Learn more…

Back

Top