Pues para eso existe funciones.

ejemplo esta simple.

dim Archivosdeprograma as string
 
'C:\Archivos de programa\  o Archivos de programa (x86) respectivamente
Archivosdeprograma=Environ$("ProgramFiles")

saludos

Ups no me di cuenta que tenias un frame.  y los frames no tiene la propiedad value :S


cámbialo por este código.

Private Sub Form_Unload(Cancel As Integer)
Dim Str As String
Dim miOboton As Control
Dim valorescribir As String
Dim NombreArchivo As String
NombreArchivo = App.Path & "\Config.ini"
 
'Verificamos cual option buttons esta seleccionado
For Each miOboton In Me.Controls
If TypeOf miOboton Is OptionButton Then
If miOboton.Value = True Then
Select Case miOboton.Name
Case "Option1"
valorescribir = "1"
Case "Option2"
valorescribir = "2"
Case "Option3"
valorescribir = "3"
End Select
End If
End If
Next
WriteIni NombreArchivo, "Opcion", "Valor", valorescribir
End Sub
 

saludos

Hola. podrias hacer algo masomenos así:

'--------for INI file read/write
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
'-------------------
 
'reads ini string
Public Function ReadIni(FileName As String, Section As String, Key As String) As String
Dim RetVal As String * 255, v As Long
v = GetPrivateProfileString(Section, Key, "", RetVal, 255, FileName)
ReadIni = Left(RetVal, v)
End Function
 
 
'writes ini
Public Sub WriteIni(FileName As String, Section As String, Key As String, Value As String)
WritePrivateProfileString Section, Key, Value, FileName
End Sub
 
 
 
 
Private Sub Form_Load()
Dim valorleido As String
Dim NombreArchivo As String
NombreArchivo = App.Path & "\Config.ini"
 
If Dir(NombreArchivo) <> "" Then 'verificamos si existe el archivo pa' cuando abrimos por primera vez
valorleido = ReadIni(NombreArchivo, "Opcion", "Valor")
Select Case valorleido 'verificamos el valor leido y asignamos
Case "1"
Option1.Value = True
Case "2"
Option2.Value = True
Case "3"
Option3.Value = True
End Select
End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Dim Str As String
Dim miOboton As Control
Dim valorescribir As String
Dim NombreArchivo As String
NombreArchivo = App.Path & "\Config.ini"
 
'Verificamos cual option buttons esta seleccionado
For Each miOboton In Me.Controls
If TypeOf miOboton Is OptionButton And miOboton.Value = True Then
Select Case miOboton.Name
Case "Option1"
valorescribir = "1"
Case "Option2"
valorescribir = "2"
Case "Option3"
valorescribir = "3"
End Select
End If
Next
WriteIni NombreArchivo, "Opcion", "Valor", valorescribir
End Sub
 

Quizás lo complique un poco :S. pero funciona bien. 

Hola no se java pero me parece que puedes hacer algo mas simple.

  String nombre = JOptionPane.showInputDialog(null, "ingrese el nombre");
    File file = new File("File.txt");
    FileInputStream fis = new FileInputStream(file);
    byte[] data = new byte[(int)file.length()];
    fis.read(data);
    fis.close();
 
    //
    String filestr = new String(data, "UTF-8");
 
if filetr.indexOf(nombre) {
 
PrintWriter writer = new PrintWriter("copia.txt", "UTF-8");
writer.println("nombre);
writer.close();
}
 

PD: el código no es funciona. solo es una idea.


saludos

@ivancea96 jajajaja a demas de ese.

en fin si tienes tiempo pues no lo pierdas. ponte a estudiar.

aqui te dejo unas cosas a ver si de algo te sirven.

http://www.youtube.com/watch?v=6MJUGVFAXKg
' mira en la descripccion del video.

http://www.toaruos.org/

http://wiki.osdev.org/Main_Page

http://www.osdever.net/tutorials/

http://www.brokenthorn.com/Resources/OSDevIndex.html

Y bueno a leer como loco   espero ver tu proyecto terminado.

saludos

Vas a coger un código  fuente "libre" y modificar para que no puedan instalar mas aplicaciones :S ahí ya pierdes el concepto. lo estas privatizando. 

Haces un SOS no es tan fácil. se requieren años de programación. "real" no jugar con vb6 

por ahí conozco de alguien que programo uno SOS todo en ASM le tomo varios años.


Igual suerte con el proyecto. dale duro.

saludos

Con este VB Shaped Form Creator lo puedes hacer fácil.

bájalo de aquí  http://www.byalexv.co.uk/


saludos

alguien me ayuda a cambiarle los créditos al PESS 2014 

hay que implementar algún anti a la hora de crear un tema nuevo. leiste el F.A.Q, seguro leiste el F.A.Q, de verdad F.A.Q. no te creo en serio que leiste el F.A.Q.


saludos

Gracias por la función es muy útil.  no uses Dim

saludos

y el código? es invisible