CommonDialog com Múltiplos Arquivos VB6

On Error GoTo Erro
CD1.CancelError = True
CD1.Filter = “Bibliotecas|*.OCX;*.DLL|Todos os Arquivos|*.*”
CD1.FilterIndex = 1 CD1.DialogTitle = “Selecionar Bibliotecas”
CD1.MaxFileSize = &H7FFF ‘ 32KB buffer
CD1.flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNLongNames Or cdlOFNAllowMultiselect Or cdlOFNExplorer
CD1.ShowOpen
If CD1.FileName <> “” Then
If InStr(CD1.FileName, Chr(0)) Then
‘selecionado vários arquivos
Arquivos = Split(CD1.FileName, Chr(0))
For i = 1 To UBound(Arquivos)
MsgBox Arquivos(0) & “\” & Arquivos(i)
Next
Else
‘selecionado um único arquivo
MsgBox CD1.FileName
End If
End If
On Error GoTo 0
Erro:

Contribuição: Adriano Paladini

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

This site uses Akismet to reduce spam. Learn how your comment data is processed.