What VB code will do this kind of rotation of files?

Folder "songs" contains 50 mp3 files.
It also contains a text file of all of the songs in the "songs" folder.
songtitle1.mp3
songtitle2.mp3
songtitle3.mp3
songtitle4.mp3
etc.

Folder "ready" contains nothing at the moment.

When I press a button:
I need VB code that will look at the text file in "songs" and take the first 4 songs in the list, and copy the associated files to folder "ready".
Next time I press the "button", the NEXT 4 songs from the text file in "songs" is put into folder "ready" and REPLACE the ones that were there.
This continues until all of the songs are used from folder "songs", then it starts again from the top.
If the code rotates the text file to reflect the used files moving to the bottom that's ok.
Can someone show me the code that will do this?
rbendAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

noushadpCommented:
Try this -
===========
Private Sub Copy_Songs()
On Error GoTo ErrHand

Dim sSongsDir As String
Dim sTextFile As String
Dim sReadyDir As String
Dim FString As String
Dim lCtr As Long
Dim iFileCopied As Integer
Dim blnFound As Boolean
blnFound = False
lCtr = 1
iFileCopied = 0
sSongsDir = "C:\Songs"
sTextFile = sSongsDir & "\Text.txt" 'Songs Text File
sReadyDir = sSongsDir & "\Ready" 'Ready Dir

Open sTextFile For Input As #1 'Open Text File
    Do While Not EOF(1)   ' Loop until end of file.
        Input #1, FString ' Read data
        If blnFound = False And CLng(GetSetting("MP3Songs", "List", "Current", 1)) = lCtr Then 'Get Next file from registry
            FileSystem.Kill (sReadyDir & "\*.*") 'Delete previous songs from "Ready"
            blnFound = True
        End If
        If blnFound Then
            If iFileCopied < 4 Then 'Copy 4 songs
                FileSystem.FileCopy sSongsDir & "\" & Trim(FString), sReadyDir & "\" & Trim(FString) 'Copy Songs
                iFileCopied = iFileCopied + 1
            Else
                SaveSetting "MP3Songs", "List", "Current", lCtr 'Save Next File in Registry
                Exit Do
            End If
        End If
        lCtr = lCtr + 1
    Loop
    If EOF(1) = True Then 'Copied every files from Text File
        MsgBox "All Songs in Text File Copied"
        SaveSetting "MP3Songs", "List", "Current", 1 'Save Next File as 1st File
    Else
        MsgBox "Copied 4 Songs"
    End If
Close #1

Exit Sub
===========

Regards
Noushad
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
rbendAuthor Commented:
good thanks
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.