Sección de códigos , trucos y ejemplos para visual basic

469 - Retornar a un array los archivos en un cuadro de diálogo Multiselección

Seleccionar múltiples archivos en cuadro de diálogo y pasarlo a un array

Función en visual basic que separa la propiedad filename de un cuadro de diálogo, para devolverla en un array de tipo string con el listado

Nota. el valor 0 de la matriz retorna el directorio, desde el índice 1 del vector hasta el final para los archivos seleccionados

Controles

un Command Button
y un control CommonDialog

Código fuente en un formulario

Option Explicit ' agegar al proyecto un botón y un cuadro de diálogo '''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Dim array_Files() As String ' configura el CommonDialog ''''''''''''''''''''''''''''''''''''''''''''''''''''''' With CommonDialog1 .Filename = vbNullString .DialogTitle = "Seleccionar múltiples archivos" .Filter = "Todos los tipos *.*|*.*" ' establece el los atributos de flags para selección míltiple .Flags = cdlOFNExplorer Or _ cdlOFNNoDereferenceLinks Or _ cdlOFNAllowMultiselect Or _ cdlOFNFileMustExist 'Devuelve o establece el tamaño máximo del nombre de _ archivo abierto usando el control CommonDialog. .MaxFileSize = 32767 ' abre .ShowOpen If .Filename <> vbNullString Then ' retorna ( el primer elemento es el directorio, _ a partir de 1 los archivos ) array_Files = split_files(.Filename) End If End With End Sub 'función que retorna un array de tipo string con la lista '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function split_files(Filename As String) As String() Dim array_temp() As String Dim i As Long Dim p As Long ' separar el string con la función Split, y devilverla en el vector array_temp = Split(Filename, Chr(0)) ' si es solo uno If UBound(array_temp) = 0 Then ' redimensiona el array a dos elementos : _ el 0 es para el directorio, el uno el fichero ReDim Preserve array_temp(0 To 1) ' cambia de posición array_temp(1) = array_temp(0) ' posición del último backslash p = InStrRev(array_temp(0), "\") ' Extrae el Dir array_temp(0) = Left$(array_temp(0), p) Else ' ..si es mas de un archivo ' directorio ''''''''''''''''' If Right(array_temp(0), 1) <> "\" Then array_temp(0) = array_temp(0) & "\" End If ' ficheros ''''''''''''''''' ' recorre el array temporal y añade los archivos For i = 1 To UBound(array_temp) array_temp(i) = array_temp(0) & array_temp(i) Next End If ' retorna el temporal a la función con la lista split_files = array_temp End Function Private Sub Form_Load() Command1.Caption = "Abrir" End Sub

Buscar en Recursos vb