SALVAR ARQUIVO TXT
Ola pessoal.
estou tentando salvar um arquivo txt, porem esta funcionando normalmente. Só que a questão é a seguinte quando eu salvo pela primeira vez ele abre o savedialog pedindo para salvar o arquivo em um determinado local, certo, quando clico pela segunda vezes ele faz o mesmo procedimento. O que eu quero é que nessa segunda vezes ele apenas salve o arquivo como se fosse as funções [Ô]Salvar Como[Ô] e depois apenas a [Ô]Salvar[Ô]
meu código esta assim:
Dim SFD As New SaveFileDialog
SFD.InitialDirectory = [Ô][Ô]
SFD.FileName = [Ô]Agendamentos.txt[Ô]
SFD.Filter = [Ô](*txt)|*.txt|Todos os Arquivos (*.*)|*.*[Ô]
SFD.CheckFileExists = False
SFD.AutoUpgradeEnabled = True
If SFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim m_streamWriter As New IO.StreamWriter(SFD.FileName)
For Each item As String In ListBox1.Items
m_streamWriter.WriteLine(item)
Next
m_streamWriter.Flush()
m_streamWriter.Close()
End If
estou tentando salvar um arquivo txt, porem esta funcionando normalmente. Só que a questão é a seguinte quando eu salvo pela primeira vez ele abre o savedialog pedindo para salvar o arquivo em um determinado local, certo, quando clico pela segunda vezes ele faz o mesmo procedimento. O que eu quero é que nessa segunda vezes ele apenas salve o arquivo como se fosse as funções [Ô]Salvar Como[Ô] e depois apenas a [Ô]Salvar[Ô]
meu código esta assim:
Dim SFD As New SaveFileDialog
SFD.InitialDirectory = [Ô][Ô]
SFD.FileName = [Ô]Agendamentos.txt[Ô]
SFD.Filter = [Ô](*txt)|*.txt|Todos os Arquivos (*.*)|*.*[Ô]
SFD.CheckFileExists = False
SFD.AutoUpgradeEnabled = True
If SFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim m_streamWriter As New IO.StreamWriter(SFD.FileName)
For Each item As String In ListBox1.Items
m_streamWriter.WriteLine(item)
Next
m_streamWriter.Flush()
m_streamWriter.Close()
End If
Primeiro você postou em local errado o que você quer não é VB6/VBA e sim VB.NET.
para corrigir isso baseado no seu código seria
criar uma variável publica para guardar o caminho do arquivo após salvo pela primeira vez
Mas caso queira baixe emeplos da NET
http://www.codigofonte.net/scripts/vbnet/editores/1664_notepad
para corrigir isso baseado no seu código seria
criar uma variável publica para guardar o caminho do arquivo após salvo pela primeira vez
Dim caminho As String = [Ô][Ô] [ô]Essa variável deve ser publica para o FORM inteiro e não para o Projeto
if caminho = [Ô][Ô] then
Dim SFD As New SaveFileDialog
SFD.InitialDirectory = [Ô][Ô]
SFD.FileName = [Ô]Agendamentos.txt[Ô]
SFD.Filter = [Ô](*txt)|*.txt|Todos os Arquivos (*.*)|*.*[Ô]
SFD.CheckFileExists = False
SFD.AutoUpgradeEnabled = True
If SFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim m_streamWriter As New IO.StreamWriter(SFD.FileName)
For Each item As String In ListBox1.Items
m_streamWriter.WriteLine(item)
Next
m_streamWriter.Flush()
m_streamWriter.Close()
caminho = SFD.FileName
End If
else
Dim m_streamWriter As New IO.StreamWriter(caminho)
For Each item As String In ListBox1.Items
m_streamWriter.WriteLine(item)
Next
m_streamWriter.Flush()
m_streamWriter.Close()
end ifMas caso queira baixe emeplos da NET
http://www.codigofonte.net/scripts/vbnet/editores/1664_notepad
Boa Noite Filman
Então cara, testei o código... ele funcionou blz, porem continua do mesmo jeito, quando salvo de novo ele abre o savedialog
Então cara, testei o código... ele funcionou blz, porem continua do mesmo jeito, quando salvo de novo ele abre o savedialog
Cara mas você esta fechando o FORM? Pois a variável publica no FORM é eliminada da memória após fecha-lo.
Me diz como esta sendo o processo desde o inicio.
Me diz como esta sendo o processo desde o inicio.
Foi Mal Filma... eu não tinha colocado a variável [Ô]caminho[Ô] como pública.
deixei pública e funcionou perfeitamente.
Muito obrigado ajudou Bastante
deixei pública e funcionou perfeitamente.
Muito obrigado ajudou Bastante
Cara se funcionou encerre o tópico!
Fico feliz em ter ajudado
Fico feliz em ter ajudado
Faça seu login para responder