9. Anexos.
9. Anexos.
9. Anexos.
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Else<br />
ReDim ListaArchivos(UBound(AuxString))<br />
If UBound(AuxString) > 0 Then<br />
For i = 1 To UBound(AuxString)<br />
ListaArchivos(i) = AuxString(0) & "\" & AuxString(i)<br />
Next i<br />
End If<br />
End If<br />
AuxString = Split(sFilenames, Chr(Asc("\")))<br />
sFilenames = AuxString(UBound(AuxString))<br />
AuxString = Split(sFilenames, Chr(0))<br />
If UBound(AuxString) = 0 Then<br />
ReDim Archivos(1)<br />
Archivos(1) = AuxString(0)<br />
Else<br />
ReDim Archivos(UBound(AuxString))<br />
For i = 1 To UBound(AuxString)<br />
Archivos(i) = AuxString(i)<br />
Next i<br />
End If<br />
End If<br />
End Sub<br />
<strong>9.</strong>2.2.6. Generar la salida.<br />
Método: GenerarInforme.bas.<br />
Option Explicit<br />
Option Base 1<br />
Public Sub Generar_Informe(ByRef Archivos() As String)<br />
<strong>Anexos</strong>.<br />
47