Bom Dia a Todos!!!
Já tentei Adicionar o Internet Controls e não adiantou. O erro dá bem nesta linha
Arquivos = ObjHttp.FileListView 'O erro dá nessa linha
Grato pela atenção de Todos!!!
Private Sub Timer1_Timer()
Dim StatusAnterior As Boolean
Dim Arquivos
Dim k As Long
StatusAnterior = Me.Tag
Timer1.Interval = 0
Arquivos = ObjHttp.FileListView 'O erro dá nessa linha
If Not Arquivos(0) = "" Then
For k = 0 To UBound(Arquivos)
If LCase(Left(Arquivos(k), 2)) = "pr" Then
Me.Tag = True 'Precisa atualizar o cadastro de produtos
Exit For
Else
Me.Tag = False 'Indica que não precisa atualizar o cadastro de produtos
End If
Next
If CBool(Me.Tag) And Not CBool(StatusAnterior) Then
MsgBox "O cadastro de produtos está desatualizado" _
& vbCrLf & "Favor atualizar para voltar a efetuar cotações", , ""
Exibicoes = Exibicoes + 1
Else
If Not Pendente = Arquivos(0) Or Exibicoes < 3 Then
Exibicoes = Exibicoes + 1
MsgBox "Existem novos arquivos disponíveis para atualização", , ""
ElseIf Not Pendente = Arquivos(0) Then
Exibicoes = 0
End If
Pendente = Arquivos(0)
End If
Else
Exibicoes = 0
Me.Tag = False 'Indica que não precisa atualizar o cadastro de produtos
End If
Timer1.Interval = 60000
End Sub
