can somebody tell me why (RESOLVED)

[robvr6]

can somebody try and explain why I can only add a maximum of 7 files at a time using this code

thanks

Private Sub Command1_Click()
 
    Dim i As Integer
 
    ProgressBar1.min = 0
    'ProgressBar1.Max = 100
    ProgressBar1.Value = 0
    ProgressBar1.Scrolling = ccScrollingSmooth
 
    Dim strFile() As String, strPath As String
    Dim n As Long, nCount As Long
    On Error Resume Next
    With CommonDialog1
        .Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
        .CancelError = True
        .InitDir = "C:\"
        .DialogTitle = "Select File To Add To Playlist"
      
        .ShowOpen
        If Err.Number <> cdlCancel Then
            strFile = Split(.FileName, vbNullChar)
            nCount = UBound(strFile)
            If nCount = 0 Then
                'Only one file is selected so split up the path and the filename
                ReDim strFile(1)
                strFile(0) = Left$(.FileName, InStrRev(.FileName, "\"))
                strFile(1) = Mid$(.FileName, InStrRev(.FileName, "\") + 1)
                nCount = 1
            End If
            strPath = strFile(0)
            If Right$(strPath, 1) <> "\" Then
                strPath = strPath & "\"
            End If
            ProgressBar1.Max = nCount
            For n = 1 To nCount
                If Len(Dir(FAVORITES_FOLDER & strFile(n))) = 0 Then
                    FileCopy strPath & strFile(n), FAVORITES_FOLDER & strFile(n)
                End If
                ProgressBar1.Value = nCount
            Next
        End If
    End With
End Sub

[RobDog888]

Try...

.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNLongNames

Also, what is the length or your 7 file names that are selected? Try varing the files selected too. Just a hunch.

Edit: I forgot to tell you "Why"

[robvr6]

Thanks for reply,they are all quite short because they are mp3 files

[dglienna]

is it a limit of winamp? can you add more by hand?

[Joacim Andersson]

The commond dialog object only returns a maximum of 260 characters in the FileName property. Maybe you should build your own dialog using the File listbox instead?

[robvr6]

what RobDog888 suggested worked because I just manged to add 20 which is quite ample.

Thanks very much for the replies
R

[RobDog888]

Was it the + 'ing of the flags or the cdlOFNLongNames flag? I read somewhere
that you needed the longfilenames flag with that combination.

Either way, glad my suggestion worked.