Postada em 11/03/2011 06:15 hs
Coloca esta função num Modulo:
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal Secao As String, ByVal parametro As Any, ByVal valor As Any, ByVal arquivo As String) As Long 'FIM INI
Pra escrever num arquivo, usa este código, por ele você vai modificando ao seu gosto:
Dim nome As String
Dim arquivo As String
arquivo = App.Path + "Arquivo.txt"
nome = "Meu Texto Aqui"
Call WritePrivateProfileString("Topico", "Campo", nome, arquivo)
Feliz aquele que transfere o que sabe e aprende.
|
