USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página