COMMONDIALOG SAVE AS...

SHELLYVEDDER 08/10/2009 11:15:20
#324796
Bom dia,
Será que alguém poderia me ajudar com uma coisa bem simples hehehe...

Estou querendo fazer um botão [Ô]salva como[Ô], aquele que o usuario pode escolhar onde salvar um arquivo por exemplo.

Ao clicar no botão deve abrir o commonDialog. Alguem poderia me da um exmplo simples, so pra fazer isso??? Na pesquisa do google não esta tão clara assim.

Desde já agradeço.
TECLA 08/10/2009 12:42:28
#324804 Resposta escolhida
  • Adicione em um FORM, um COMMANDBUTTON, um TEXTBOX e um COMMONDIALOG (e altere a propriedade NAME deste último para cdg).
    Deixe o FORM com a aparência da imagem abaixo:



  • Copie o código abaixo e cole no editor do VB6.
    Option Explicit


    Private Sub Command1_Click()
    • [txt-color=#0B6138][ô]Rotina para abrir a caixa de diálogo e salvar o arquivo[/txt-color]
    Dim pathArq As String
    cdg.Filter = [Ô]Documento de texto (*.txt)|*.txt[Ô]
    cdg.ShowSave
    pathArq = cdg.FileName

    If Trim(pathArq) <> [Ô][Ô] Then
    Open pathArq For Output As #1
    Print #1, Text1
    Close #1
    MsgBox [Ô]Arquivo salvo com sucesso![Ô], vbInformation, [Ô]Salvar arquivo[Ô]
    End If
    End Sub

    Private Sub Form_Load()
    [txt-color=#0B6138][ô]Texto que será gravado no arquivo[/txt-color]
    Dim texto As String
    texto = [Ô]VBMania - Referência Nacional em Visual Basic.[Ô]
    Text1 = texto
    End Sub
    Tópico encerrado , respostas não são mais permitidas
    Voltar