Ir para conteúdo
Fórum Script Brasil
  • 0

Opção Salvar em Editor de texto


Romanada

Pergunta

1 resposta a esta questão

Posts Recomendados

  • 0

Suponho que você já tenha algum código para salvar seu texto, então só modifique este.

Caso queira colocar em um botão só:

If Not My.Computer.FileExists("Local do arquivo\arquivo.txt") Then
    'Abre um SaveFileDialog para salvar um novo arquivo'
ElseIf Mt.Computer.FileExists("Local do arquivo\arquivo.txt") Then
    'Apenas salva o arquivo'
End If

Caso queira colocar em botões diferentes:

'Botão SALVAR'
If Not My.Computer.FileExists("Local do arquivo\arquivo.txt") Then
    If SaveFileDialog.ShowDialog() = DialogResult.OK Then
        'Salva seu arquivo'
    End If
Else
    'Salva seu arquivo'
End If

'Botão Salvar Como'
If SaveFileDialog.ShowDialog() = DialogResult.OK Then
    'Salva seu arquivo'
End If

Testa e me diz o que aconteceu por que to sem o VB aqui e não tenho como testar...

Abrçs...

Editado por BackSpace
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...