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

Copiar Arquivo


jntk

Pergunta

: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!!!!

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

: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!

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,4k
×
×
  • Criar Novo...