PROBLEMA COM COMMOM DIALOG MULTIPLA

DANLEONHART 26/06/2011 18:49:40
#377774
Seguinte:

Tenho um script onde a Commom Dialog está configurada para selecionar diversos arquivos...o problema surge se a escolha ultrapassa mais de 500 arquivos... aí o botão fica desbilitado automaticamente, incapaz de adicionar mais arquivos...

Tem alguma maneira de corrigir isto ?
Já aumentei o [Ô][txt-color=#0000f0]MaxFileSize[/txt-color][Ô] para 35000... e continua...
KERPLUNK 27/06/2011 11:56:00
#377834
Caramba, 500 arquivos é arquivo pra caramba... Amigo, do que se trata? é possível que haja uma maneira bem melhor de se fazer isso.
DANLEONHART 28/06/2011 06:07:12
#377900
Rsss
500 arquivos foi só um exemplo...arrastando e soltando consigo colocar 1.500 arquivos na ListBox numa boa, porém queria deixar com a opção de busca com o Commom Dialog...mais sabe como é usuário...descobre cada erro

Meu pró agora tá ao carregar os arquivos...se seleciono 2 ou mais arquivos, vai de boa...agora se seleciono apenas um, aparece sequenciado na ListBox
script:

Sub MultiSel()
Dim File_Name() As String, I As Integer
[ô]Must set these flags in order to allow
[ô]multiple selection
Dialog.Flags = cdlOFNExplorer Or cdlOFNAllowMultiselect
Dialog.ShowOpen
File_Name() = Split(Dialog.FileName, vbNullChar)

For I = LBound(File_Name) + 1 To UBound(File_Name)      [ô]<= Aqui eu retiro o [Ô]+ 1[Ô] para carregar um só arquivo, mas duplica...
    List1.AddItem File_Name(0) & File_Name(I)
Next
End Sub


Sequeciado que falo é assim:
[Ô][txt-color=#e80000]C:\Pasta\Teste.txtC:\Pasta\Teste.txt[/txt-color][Ô]
DANLEONHART 29/06/2011 21:08:12
#378071
Conseguí !


Sub Procurar_Arquivos()
Dim Arquivos() As String, I As Integer

CD.DialogTitle = [Ô]Informe o caminho:[Ô]
CD.InitDir = Environ([Ô]HOMEDRIVE[Ô])
CD.Filter = [Ô]Tipos (*.dll), (*.ocx) e (*.tlb)|*.dll; *.ocx;*.tlb|Todos [Ô] & [Ô]Arquivos. (*.*)|*.*[Ô]
CD.FilterIndex = 1
CD.MaxFileSize = &H7FFF [ô] 32KB buffer

[ô] Commom Dialog configurado para selecionar mais de um arquivo:

CD.Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNLongNames Or cdlOFNAllowMultiselect Or cdlOFNExplorer
CD.ShowOpen

If IsEmpty(CD.FileName) = True Then
Exit Sub
Else
If CD.FileName <> [Ô][Ô] Then
If InStr(CD.FileName, Chr(0)) Then
[ô]Selecionado vários arquivos:
Arquivos = Split(CD.FileName, Chr(0))
For I = 1 To UBound(Arquivos)
Lst1.AddItem Arquivos(0) & [Ô]\[Ô] & Arquivos(I)
Next
CD.FileName = Empty
Else
[ô]Selecionado um único arquivo:
Lst1.AddItem CD.FileName
End If
End If
End If
CD.FileName = Empty
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar