LER ARQUIVO INI

GERARDA 20/08/2010 22:28:01
#350849 Resposta escolhida

tem um exemplo legal aqui

http://www.macoratti.net/vb_ini.htm

ALVAROVB2009 21/08/2010 09:08:11
#350862

Em um módulo
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

[ô]funcao para ler valor de Chave
Public Function iniReadKey(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)
iniReadKey = Left(RetVal, v)
End Function

E depois é só criar a função para ler o arquivo
Public Sub AbreBancoFrenteCaixa()
Set BancoFrenteCaixa = New ADODB.Connection
[ô]Abre banco frente de caixa
SPath = (iniReadKey(App.Path & [Ô]\config.ini[Ô], [Ô]FRENTECAIXA[Ô], [Ô]PATH[Ô]))
BancoFrenteCaixa.Open [Ô]Provider=Microsoft.Jet.OLEDB.3.51;Data Source= [Ô] & SPath
End Sub

No load do form
Abrebancofrentecaixa

Espero ter te ajudado

SNNIFFER 21/08/2010 09:26:27
#350864

Valeu galera consegui, declarei esta função no módulo:

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

E no evento Load do formulario:

Dim nome As String
Dim arquivo As String
Dim retlen As Long

arquivo = App.Path + [Ô]\Config.ini[Ô]

nome = String(256, 0)

retlen = GetPrivateProfileString([Ô]encrypted[Ô], [Ô]down[Ô], [Ô][Ô], nome, 256, arquivo)
nome = Left(nome, retlen)

If nome = [Ô][Ô] Then
MsgBox [Ô]O parâmetro Down não foi encontrado![Ô], vbCritical
End
Else
TXT.Text = nome
End If

Vlw!