Creating shortcuts of application

[paralinx]

Here is modified version (untested) so give it the try and let em know if works for you:

Private Sub Command1_Click()
Dim i As Integer
 
    If File1.ListIndex < 0 Then
        MsgBox "No Selected Songs.", vbCritical
        Exit Sub
    End If
    
    ReDim sFileName(0)
    blnCopy = False
    
    For i = 0 To File1.ListCount - 1
        If File1.Selected(i) = True Then
            sFileName(UBound(sFileName)) = File1.List(i)
            ReDim Preserve sFileName(UBound(sFileName) + 1)
        End If
    Next i
    If UBound(sFileName) > 0 Then
        If Trim(sFileName(UBound(sFileName))) = "" Then
            ReDim Preserve sFileName(UBound(sFileName) - 1)
        End If
    End If
    If Trim(sFileName(0)) <> "" Then
        blnCopy = True 'not sure what this is for ???
    End If
 
End Sub

Ok, I should have just asked this to, but I need the directory of the file list box infront of the names.