elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  common dialog abrir/seleccionar mas de un fichero
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: common dialog abrir/seleccionar mas de un fichero  (Leído 2,047 veces)
luiski

Desconectado Desconectado

Mensajes: 5



Ver Perfil
common dialog abrir/seleccionar mas de un fichero
« en: 12 Octubre 2006, 23:09 pm »

Hola colegas se podria hacer que a la hora de abrir/seleccionar desde la ventana de apertura de un common dialog, poder seleccionar mas de un fichero a la vez??? gracias, un saludo


En línea

CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: common dialog abrir/seleccionar mas de un fichero
« Respuesta #1 en: 12 Octubre 2006, 23:35 pm »

lo puedes hacer con la propiedad "Flags"

            On Local Error Resume Next
            With CommonDialog1
                .Flags = cdlOFNAllowMultiselect
                .Filter = "Todos los archivos | *.*"
                .ShowOpen
                Select Case Err.Number
                    Case 0
                        MsgBox .FileName ' archivos seleccionados
                    Case 32755
                        ' selecciono cancelar
                    Case Else
                        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error al abrir"
                End Select
            End With


En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: common dialog abrir/seleccionar mas de un fichero
« Respuesta #2 en: 12 Octubre 2006, 23:39 pm »

hay te va el codigo mejorado

            Dim s() As String, i As Integer
           
            On Local Error Resume Next
            With CommonDialog1
                .Flags = cdlOFNAllowMultiselect
                .Filter = "Todos los archivos | *.*"
                .ShowOpen
                Select Case Err.Number
                    Case 0 ' archivos seleccionados
                        s = Split(.FileName, " ")
                        For i = 1 To UBound(s)
                            MsgBox s(0) & s(i)
                        Next i
                    Case 32755
                        ' selecciono cancelar
                    Case Else
                        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error al abrir"
                End Select
            End With
            On Local Error GoTo 0
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
luiski

Desconectado Desconectado

Mensajes: 5



Ver Perfil
Re: common dialog abrir/seleccionar mas de un fichero
« Respuesta #3 en: 13 Octubre 2006, 07:48 am »

Muchisimas gracias me ha venido de perlas, un saludo y gracias de nuevo
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Abrir seleccionar carpteas como si fuera vbmodal
Programación Visual Basic
MandingoPC 4 2,409 Último mensaje 14 Diciembre 2011, 19:10 pm
por MandingoPC
Duda abrir fichero c++ « 1 2 »
Programación C/C++
Stakewinner00 11 6,468 Último mensaje 31 Enero 2013, 18:10 pm
por Stakewinner00
[Ayuda] Abrir fichero de imagen en c « 1 2 3 »
Programación C/C++
Mioshi 23 14,322 Último mensaje 14 Enero 2015, 08:21 am
por jackleo1995
Abrir Cuadro de dialog desde jInternalFrame
Java
soy_nicanor 0 2,454 Último mensaje 24 Octubre 2015, 22:35 pm
por soy_nicanor
Seleccionar Archivo o Carpeta sin Dialog
.NET (C#, VB.NET, ASP)
rigorvzla 6 3,033 Último mensaje 21 Noviembre 2018, 00:04 am
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines