Bom colega se você tem realmente treze anos temos mesmo de ajuda-lo, mas se cadastro no forum informa 105 anos, mesmo assim vamos lá.
como você está iniciando, vou fazer algumas explicações dos comandos que utilizarei.
Primeiro para fazer um uma comando no arquivo texto funcionar, primeiro temos de reconhecer uma string, e determinar que ela seja um comando, para reconhecer esta string utilizaremos a função instr.
Função
Instr(Start,String1,string2)
Onde:
Start = a posição em que começará a pesquisa
String1 = string nal qual ocorrerá a pesquisa
String2 = string a ser localizada na string1
ex:
Valor=Instr(1,"eu estou aqui","estou")
então
valor=4 ' porque a palavra estou começa na quarta posição
Bom vamos ao uso agora, baseado no código anterior que lhe passei
Dim F As Integer, a As Integer, b As Integer
Dim Arquivo As String
Dim Inline As String
Private Sub Form_Load()
Arquivo = "c:config.txt"
F = FreeFile
If Dir(Arquivo) <> "" Then
Open Arquivo For Input As #F
Do While Not EOF(F)
Line Input #F, Inline
' o codigo a seguir irá verificar se na linha pesquisada existe a palavra "CameraConvert"
' no caso de existir ele procura na mesma linha a as funções True e False
' e executa um comando conforme o resultado
If Instr(1,InLine,"CameraConvert") <> 0 then ' se o valor for diferente de zero então a palavra existe
if Instr(1,Inline,"False") <> 0 then
CheckCameraConvert.Value=0
elseif Instr(1,Inline,"True") <> 0 then
CheckCamenraConvert.Value=1
end if
end if
If Instr(1,InLine,"CameraSight") <> 0 then ' se o valor for diferente de zero então a palavra existe
if Instr(1,Inline,"Off") <> 0 then
CheckCameraSight.Value=0
elseif Instr(1,Inline,"On") <> 0 then
CheckCameraSight.Value=1
end if
end if
Loop
Close #F
End If
End Sub
esta é a forma que você vai utlizar para executar tais comandos.
bom quanto a parte da pasta não entendi direito explique melhor e postarei um exemplo
até
