9. Anexos.

Dim sFilenames As String
Dim cdlOpen As Object
On Error GoTo ProcError
Set cdlOpen = CreateObject("MSComDlg.CommonDialog")
With cdlOpen
.CancelError = True
.Filter = "Documentos de Texto (*.txt) |*.txt|Todos los archivos (*.*) |*.*"
.FilterIndex = 1
.DialogTitle = sTitle
.MaxFileSize = &H7FFF
Anexos.
' same as .Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNLongNames Or
cdlOFNAllowMultiselect or cdlOFNExplorer
.Flags = &H4 Or &H800 Or &H40000 Or &H200 Or &H80000
.ShowOpen
sFilenames = .FileName
End With
ProcExit:
GetFiles = sFilenames
Set cdlOpen = Nothing
Exit Function
ProcError:
If Err.Number = &H7FF3 Then Resume Next 'Cancel selected - Ignore
MsgBox Err.Description & "(" & Err.Number & ")", vbExclamation, "Open error"
sFilenames = ""
Resume ProcExit
End Function
Public Sub ExtraerRutas(ByRef sFilenames As String, ByRef ListaArchivos() As String, ByRef Archivos() As
String)
Dim i As Integer
Dim AuxString() As String
AuxString = Split(sFilenames, Chr(0))
If UBound(AuxString) -1 Then
If UBound(AuxString) = 0 Then
ReDim ListaArchivos(1)
ListaArchivos(1) = AuxString(0)
46