AI vai um desafio a todos que possam me ajudar. Estou com um problemão... Este código rodava normalmente, fiz umas modficações no windows, então começãoram a aparecer vários erros, consegui arrumar alguns add referencias e componentes... este por insistencia continua " Expected array" na função que estou postando abaixo exatamente na linha que está left em vermelho... Socorro alguém me ajude...
Pergunta
robledo
AI vai um desafio a todos que possam me ajudar. Estou com um problemão... Este código rodava normalmente, fiz umas modficações no windows, então começãoram a aparecer vários erros, consegui arrumar alguns add referencias e componentes... este por insistencia continua " Expected array" na função que estou postando abaixo exatamente na linha que está left em vermelho... Socorro alguém me ajude...
Public Function CheckVersion() As Boolean
Dim strMajor As String
Dim strMinor As String
Dim strBuild As String
Dim strPath As String
Dim strVersion As String
Dim intResponse As Integer
Dim intWhere As Integer
On Error GoTo errCheckVersion
strVersion = myCollAgentProperties.Item("VERSION").Value
intWhere = InStr(1, strVersion, ".", vbTextCompare)
strMajor = Left(strVersion, intWhere - 1)
strVersion = Right(strVersion, Len(strVersion) - intWhere)
intWhere = InStr(1, strVersion, ".", vbTextCompare)
strMinor = Left(strVersion, intWhere - 1)
strBuild = Right(strVersion, Len(strVersion) - intWhere)
strPath = myCollAgentProperties.Item("PATH").Value
If App.Major <> strMajor Or _
App.Minor <> strMinor Or _
App.Revision <> strBuild Then
MsgBox MSG_INVALIDVERSION, vbExclamation, "CCA"
If App.Major = strMajor And _
App.Minor = strMinor And _
App.Revision < strBuild Then
If MsgBox(MSG_EXISVERSION, vbYesNo + vbQuestion) = vbYes Then
Upgrade strPath
CheckVersion = False
Else
MsgBox MSG_VERSIONNOACTUAL, vbOKOnly + vbInformation
CheckVersion = True
End If
Else
MsgBox MSG_VERSIONNOUPEGRA, vbOKOnly + vbExclamation
CheckVersion = True
End If
Else
CheckVersion = True
End If
Exit Function
errCheckVersion:
CheckVersion = True
End Function
Obrigado....
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.