help with mciSendString song duration

[kbodily]

Hi,
I have this code in a dragdrop routine for a listview to get the
duration of an mp3, where fPath is the path to the file that gets
dropped

Dim fname As String = Chr(34) + Trim(fPath) + Chr(34)
mciSendString("open " & fname & " alias song", 0, 0, 0)
Dim totalTime As String = Space(128)
mciSendString("status song length", totalTime, 128, 0&)
.Duration = totalTime
mciSendString("close " & fname & " alias song", 0, 0, 0)
totalTime = Nothing
the code seems to work for the first mp3 that gets dropped, but each
file after that returns the same duration of the first. Can someone
explain what is not right in that code, and how to change it so that it
works?
thanks
kevin
__________