Parte 4 – Uso del Control Timer en el Formulario de Inicio

Dim ArchivosConfiguracion(3) As String
Sub CargarNombresArchivo()
    ArchivosConfiguracion(0) = App.Path & "/configuracion.ini"
    ArchivosConfiguracion(1) = App.Path & "/ticket.ini"
    ArchivosConfiguracion(2) = App.Path & "/url.txt"
    ArchivosConfiguracion(3) = App.Path & "/Db/DbVentas.accdb"
End Sub

Sub VerificarArchivo(Num)
    Dim Resultado As String
    
    Resultado = Dir(ArchivosConfiguracion(Num))
    If Len(Resultado) > 0 Then
       lblVerificando.Caption = lblVerificando.Caption & "OK"
    Else
       MsgBox "EL archivo " & ArchivosConfiguracion(Num) & ", No existe verifique", vbCritical, "Error Critico"
       Timer1.Enabled = False
       Unload Me
       
    End If
    
End Sub


Sub ConsultaDirectorio(Tiempo As Integer)
    Select Case Tiempo
        Case 1:
            lblVerificando.Caption = "Verificando archivo de configuracion ..."
            Call VerificarArchivo(0)
        Case 2:
            lblVerificando.Caption = "Verificando archivo de ticket ..."
            Call VerificarArchivo(1)
        Case 3:
            lblVerificando.Caption = "Verificando archivo de ubicación de DB ..."
            Call VerificarArchivo(2)
        Case 4:
            lblVerificando.Caption = "Verificando archivo de Base de datos ..."
            Call VerificarArchivo(3)
        Case Else
            Timer1.Enabled = False
            Unload Me
            frmLogin.Show
    End Select
End Sub