Uso del Control Timer en el Formulario de Inicio

En este vídeo explico como se utiliza el control Timer, y como usamos varias funciones de visual como Dir, App que son necesarias para lo que queremos lograr con nuestra pantalla de Inicio.

La función Dir: Devuelve una cadena que representa el nombre de un archivo, directorio o carpeta que coincide con un modelo especificado o atributo de archivo o la etiqueta de volumen de una unidad.

La Funcion App.path: Devuelve la ubicación actual de nuestra aplicación con respecto a la raíz del disco duro.

Parte 2 del Vídeo:

Código Usado:

Dim ArchivosAplicacion(3) As String

Sub ListaArchivosConfiguracion()
    ArchivosAplicacion(0) = App.Path & "/configuracion.ini"
    ArchivosAplicacion(1) = App.Path & "/tiket.ini"
    ArchivosAplicacion(2) = App.Path & "/Db/Dbventas.accdb"
    ArchivosAplicacion(3) = App.Path & "/urldb.txt"
End Sub
Sub VerificarExisteArchivo(Num)
 
    Resulconsulta = Dir(ArchivosAplicacion(Num))
    If Len(Resulconsulta) > 0 Then
       lblVerificando.Caption = lblVerificando.Caption & "Ok"
    Else
       MsgBox "El archivo " & ArchivosAplicacion(Num) & " No existe verifique", vbCritical, "Error Critico"
       Timer1.Enabled = False
       Unload Me
     
    End If

End Sub
Sub ConsultaDirectorios(Tiempo)
    Select Case Tiempo
        Case 1
            lblVerificando.Caption = "Verificando ..."
        Case 2
            lblVerificando.Caption = "Verificando archivos de configuración ..."
            Call VerificarExisteArchivo(0)
        Case 3
            lblVerificando.Caption = "Verificando archivos de ticket ..."
            Call VerificarExisteArchivo(1)
        Case 4
            lblVerificando.Caption = "Verificando archivos de Base de datos ..."
            Call VerificarExisteArchivo(2)
        Case 5
            lblVerificando.Caption = "Cargando archivo de ubicación de DB ..."
        Case Else
            Timer1.Enabled = False
            Unload Me
            Form1.Show
    End Select
End Sub

Private Sub Form_Load()
    Call ListaArchivosConfiguracion
End Sub

Private Sub Timer1_Timer()
   Static Tiempo
    Tiempo = Tiempo + 1
    Call ConsultaDirectorios(Tiempo)
 
End Sub