|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Salvando o conteúdo de um TextBox num Arquivo Texto
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
webmaster@vbweb.com.br
Public Sub SalvaArq(ByVal sArquivo As String, _
ByVal sTexto As String)
Dim iARQ As Integer, iRet As Integer
iARQ = FreeFile
If Dir$(sArquivo) <> "" Then
iRet = MsgBox("O arquivo já existe. Você " & _
"deseja sobrescreve-lo?", vbQuestion + _
vbYesNo, "ATENÇÃO!!!")
If iRet = vbNo Then
Exit Sub
End If
End If
Open sArquivo For Output As iARQ
Print #iARQ, sTexto
Close iARQ
End Sub
'P/ usar, chame-a passando o nome do arquivo e
'o texto. Veja:
SalvaArq "C:\Texto.TXT", Text1.Text
|
|
|
|
|
