Título: common dialog abrir/seleccionar mas de un fichero Publicado por: luiski 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
Título: Re: common dialog abrir/seleccionar mas de un fichero Publicado por: CeLaYa 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 Título: Re: common dialog abrir/seleccionar mas de un fichero Publicado por: CeLaYa 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 Título: Re: common dialog abrir/seleccionar mas de un fichero Publicado por: luiski en 13 Octubre 2006, 07:48 am Muchisimas gracias me ha venido de perlas, un saludo y gracias de nuevo
|