程序：
   With CommonDialog1
        .DialogTitle = "打开"
        .CancelError = False
        .Filter = "all log (*.log)|*.*"
        .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
        .ShowOpen
        If Len(.FileName) = 0 Then
          Exit Sub
        End If
          filemanyaddress = .FileName
    End With
   
    files = Split(filemanyaddress, Chr(0))
    ReDim a(UBound(files))
    For I = 1 To UBound(files)
        a(I) = files(0) & "\" & files(I)
    Next I
打开超过10个文件提示如下

怎么怎么解决呀

没人回复，自己回复吧！解决了
将CommndDialog.maxfilesize=3500解决