Hi
On my form I have the following:-
3 Textboxes Text1,txtCount and fleType
DriveListBox - Drive1
DirListBox - Dir1
FileListBox - File1
Command Button - cmdCopy

The files load OK but I get error 53 when I try to copy the mp3 file from the
FileListBox.

Code

Option Explicit
'Strings
Private myPathChanged As String
Public myFile As String
Private strFullPath As String

Private Sub cmdCopy_Click()
ChDrive ("C")
ChDir "\Test\"
MsgBox "The current directory is " & CurDir
Do Until txtCount = 0
FileCopy myFile, "C:\Test"
Loop
End Sub

Private Sub dir1_Change()
Dim xNum As Integer

File1.Path = Dir1.Path
If frmFront.Visible = True Then
File1.Pattern = fleType
If Dir1.Path <> Text1.Text Then
xNum = Len(Text1.Text) + 5
myPathChanged = Mid$(Dir1.Path, xNum)

If Drive1 = "c:" Then
Text1.Text = Mid(Dir1.Path, 4) 'Display path in Textbox
Else
Text1 = Left$(Dir1.Path, 2) 'Display Drive in Textbox
End If
End If
End If

If File1.ListCount > 0 Then
txtCount = File1.ListCount '- 1
txtCount.ForeColor = &H0&
End If

End Sub

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
Drive1.Drive = Left$(Dir1.Path, 2)
End Sub

Private Sub File1_Click()

strFullPath = Dir1.Path

If Right$(Dir1.Path, 1) <> "\" Then strFullPath = strFullPath & "\"

strFullPath = strFullPath & File1.FileName
myFile = File1.FileName
cmdCopy.Enabled = True

' MsgBox strFullPath, , "Full Path"
End Sub

Private Sub Form_Load()
fleType.Text = "*.mp3"
If Dir1.Path <> "G:\My Music\" Then Dir1.Path = "G:\My Music\"
File1.Path = Dir1.Path
Text1.Text = File1.Path
Drive1.Drive = Left$(Dir1.Path, 2)
Dir1.Path = Text1.Text
End Sub