Copiar Arquivo

[jntk]

:huh:

Pessoal, preciso saber o código para abrir a caixa de diálogo "salvar como".

Tenho um determinado caminho carregado em uma caixa de texto (C:\arquivos\foto.jpg), e quero que ao clicar em um determinado botão abra a caixa de diálogo dando a opção para eu saber esse arquivo apontado para qualquer lugar que eu deseje.

Valeu!!!!

[Graymalkin]

Dê uma procurada aqui no fórum sobre Common Dialogs.

Abraços,

Graymalkin

[jntk]

:huh:

Valeu cara!

Fiz assim:

If txt_image = "" Then
    MsgBox "Nenhuma Imagem Carregada", vbOKOnly + vbExclamation, "Atenção"
    Exit Sub
End If

Dim filter As String
filter = "Arquivos JPG (*.jpg)|*.jpg|Todos os arquivos.|*.*"
CommonDialog2.filter = filter

CommonDialog2.ShowSave

If CommonDialog2.FileName = "" Then
    MsgBox "O Arquivo NÃO foi Copiado", vbOKOnly + vbExclamation, "Atenção"
    Else
        SavePicture img_image, CommonDialog2.FileName
        MsgBox "O Arquivo foi Copiado com Sucesso!", vbOKOnly + vbInformation, "Sucesso!"
End If

CommonDialog2.FileName = ""

Pode fechar o tópico!