|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Arquivos/Diretórios)
|
|
 |
Título da Dica: Rotina de Salvar Dados de uma textBox em um arquivo Txt e depois carregar os dados com Common Dialog
|
 |
|
|
|
Postada em 10/2/2004 por JulienMurray
' Abre
Private Sub BtCarregarInst_Click()
Me.TxtInstrucao.Text = ""
With CDlg
.DialogTitle = "Escolha o local onde está as Instruções"
.InitDir = "C:\"
.Filter = "*.Txt"
.ShowOpen
End With
If Me.CDlg.FileName <> Cancel Then
Dim fso As New FileSystemObject
Dim Arq2 As TextStream
Dim Texto As String
Dim Caminho As String
Caminho = Me.CDlg.FileName
Set Arq2 = fso.OpenTextFile(Caminho)
Texto = Arq2.ReadAll
Me.TxtInstrucao.Text = Texto
Arq2.Close
Else
Exit Sub
End If
End Sub
'Fecha
Private Sub BtSalvarInst_Click()
If Me.TxtInstrucao.Text = "" Then
MsgBox"O arquivo a ser gerado de instrução será salvo " _
& "em branco !", vbCritical, StrMsg
Me.TxtInstrucao.SetFocus
Exit Sub
End If
With CDlg
.DialogTitle = Escolha o local onde salvar as Instruções"
.FileName = "Instruções"
.InitDir = "C:\Sinditest"
.Filter = "*.Txt"
.ShowSave
End With
If Me.CDlg.FileName <> Cancel Then
Arq = FreeFile
Open Me.CDlg.FileName & ".TXT" For Output As Arq ' determina o arquivo
Print #Arq, Me.TxtInstrucao.Text ' enviar o texto da text box
Close Arq ' Fecha o arquivo
Else
Exit Sub
End If
End Sub
|
|
|
|
|
