Arquivos vb6 - Adeilson :) https://adeilson.com.br/tag/vb6/ Anotações ao alcance de todos ! ! ! Sun, 07 Mar 2010 15:57:46 +0000 pt-BR hourly 1 CommonDialog com Múltiplos Arquivos VB6 https://adeilson.com.br/2010/02/25/commondialog-com-multiplos-arquivos-vb6/ https://adeilson.com.br/2010/02/25/commondialog-com-multiplos-arquivos-vb6/#respond Thu, 25 Feb 2010 11:36:30 +0000 http://adeilson.com.br/?p=100 Continue lendo →]]> 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

]]> https://adeilson.com.br/2010/02/25/commondialog-com-multiplos-arquivos-vb6/feed/ 0 Linha do erro no VB6 https://adeilson.com.br/2010/01/05/linha-do-erro-no-vb6/ https://adeilson.com.br/2010/01/05/linha-do-erro-no-vb6/#respond Tue, 05 Jan 2010 00:37:01 +0000 http://adeilson.com.br/?p=23 http://msdn.microsoft.com/en-us/library/97sx19w1(VS.80).aspx

]]> https://adeilson.com.br/2010/01/05/linha-do-erro-no-vb6/feed/ 0