FRAMEWORK EM VB 6

KERPLUNK 27/11/2012 18:36:05
#414892 Resposta escolhida

Bem, você pode ter várias versões de Framework instalados na mesma máquina. Verifique a pasta C:\WINDOWS\Microsoft.NET\ dentro dela tem subpastas, cada uma representando um dos frameworks instalados.

AJSO 27/11/2012 21:05:42
#414897

Caro ALBAZANA

Pode chamar essa função no seu código vb ou adaptar pois esta em VBScript

Copie para um txt e depois renomeia a extenção para vbs

Dim Act :Set Act = CreateObject([Ô]Wscript.Shell[Ô])

Dim Obj, Rg1, Rst

Dim Reg :Reg = Array( _
[Ô]1.0 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\1.0.3705\Version[Ô], _
[Ô]1.1 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\1.1.4322\Version[Ô], _
[Ô]2.0 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\Version[Ô], _
[Ô]3.0 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Version[Ô], _
[Ô]3.5 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5\Version[Ô], _
[Ô]4.0 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4.0.30319\Version[Ô], _
[Ô]4.5 - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4.5.50709\Version[Ô])

On Error Resume Next

For Each Obj In Reg

Rg1 = Split(Obj,[Ô] - [Ô])
If IsNull(Act.RegRead(Rg1(1))) Then
Rst = Rst & [Ô]Não encontrado Net Frame Work : [Ô] & Rg1(0) & vbCrLf

Else
Rst = Rst & [Ô]Ok, encontrado Net Frame Work : [Ô] & Rg1(0) & [Ô] - [Ô] & Act.RegRead(Rg1(1)) & vbCrLf

End If
Next
MsgBox Rst, 4128,[Ô]Net Framework Infomativo[Ô]


Boa Sorte

KERPLUNK 28/11/2012 00:31:31
#414904

Só acrescentando ao AJSO, para fazer pesquisa no registro, precisa de privilégios de administrador da máquina.

ALBAZANA 28/11/2012 08:12:45
#414909

obrigado pelas dicas pessoal, acredito que isto ja resolverá meu problema

ALEVALE 28/11/2012 09:03:19
#414915

VB.NET
msgbox(System.Runtime.InteropServices.RuntimeEnvironment.GetSystemVersion)

rsrsrsrs

VB6

Dim strFrameworkDir As String
strFrameworkDir = Environ$([Ô]systemroot[Ô]) & [Ô]\Microsoft.NET\Framework\v3.5[Ô]

If Dir$(strFrameworkDir, vbDirectory) = vbNullString Then
MsgBox [Ô].NET Framework 3.5 Must be Installed on this machine![Ô]
End
End If

OBS: Verifique os demais diretórios dentro do [Ô]framework[Ô]..