TRADUCIR A FOX.
Publicado por DALSOM (612 intervenciones) el 20/05/2005 16:01:16
HOLA A TODOS NUEVAMENTE. LOGRE ESTO, PERO EN VB.NET 2003
EL PROBLEMA ES QUE AHORA NO SE COMO PASARLO A FOX.
ALGUIEN PODRIA TRADUCIRME ESTO A VFP, POR FAVOR :
Imports Microsoft.Win32
Module Module1
Sub Main()
Dim RKey As RegistryKey
Dim RKeyV As String
Dim SubKey As String = ""
RKeyV = "SOFTWARE\\Microsoft\\Office\\11.0\\"
RKey = Registry.LocalMachine.OpenSubKey(RKeyV, False)
If Not RKey Is Nothing Then
For Each SubKey In RKey.GetSubKeyNames()
Dim TmpKey As RegistryKey = RKey.OpenSubKey(SubKey)
If (Not TmpKey Is Nothing) Then
If (Not TmpKey.Name Is Nothing) Then
Console.WriteLine(TmpKey.Name)
End If
End If
Next
RKey.Close()
Else
MsgBox("Esta llave no existe")
End If
Console.ReadLine()
End Sub
End Module
DE ANTEMANO, GRACIAS.
EL PROBLEMA ES QUE AHORA NO SE COMO PASARLO A FOX.
ALGUIEN PODRIA TRADUCIRME ESTO A VFP, POR FAVOR :
Imports Microsoft.Win32
Module Module1
Sub Main()
Dim RKey As RegistryKey
Dim RKeyV As String
Dim SubKey As String = ""
RKeyV = "SOFTWARE\\Microsoft\\Office\\11.0\\"
RKey = Registry.LocalMachine.OpenSubKey(RKeyV, False)
If Not RKey Is Nothing Then
For Each SubKey In RKey.GetSubKeyNames()
Dim TmpKey As RegistryKey = RKey.OpenSubKey(SubKey)
If (Not TmpKey Is Nothing) Then
If (Not TmpKey.Name Is Nothing) Then
Console.WriteLine(TmpKey.Name)
End If
End If
Next
RKey.Close()
Else
MsgBox("Esta llave no existe")
End If
Console.ReadLine()
End Sub
End Module
DE ANTEMANO, GRACIAS.
Valora esta pregunta
0