COMO SALVAR UM TEXTO NA AREA DE TRABALHO

USUARIO.EXCLUIDOS 09/12/2006 19:40:39
#189044
gente desculpe a minha burrice mais eu queria tipo eu escrever auguma coisa num texte ai clicar em salvar e salvar no desktop
USUARIO.EXCLUIDOS 09/12/2006 21:08:34
#189053
fácil,

tenha 2 Strings
Dim Arquivo As String
Dim Texto AS String


o Arquivo conterá o caminho do arquivo, tipo "C:    este.txt", e o texto deverá ter o texto.
dae faça o seguinte:

Open Arquivo For Binary Access Read Write As #1
Put#1, , Texto
Close#


espero ter ajudado
para gravar na área de trabalho procure uma função que determine o caminho da área de trabalho

dica: pesquise em Código Fonte
USUARIO.EXCLUIDOS 10/12/2006 00:16:19
#189074
Faz assim:

Dim sDesktop as string
sDesktop = environ(27) & "\Desktop\MeuArq.txt" '27 é a pasta do usuário logado no Win XP, favor testar...
Open sDesktop for output as #1
   Print #1, Text1.Text
Close #1


Pronto, fazendo justamente oq vc quer, salvando de uma textbox p um arquivo de texto na área de trabalho.
QQ coisa me fala
ESLEYSANCHES 10/12/2006 00:25:13
#189076 Resposta escolhida
é para salvar um arquivo de texto a partir de um textbox no formulário ?

Tente o código abaixo:

open caminho for output as #1
print #1, me.text1.text
close #1
Msgbox("O arquivo foi salvo com sucesso na pasta " & caminho),vbinformation


Espero que te ajude !!
Abraços !!
Tópico encerrado , respostas não são mais permitidas
Voltar