none
Colar a mesma imagem em varias pastas RRS feed

  • Pergunta

  • Estou com uma dificuldade. Alguém pode me ajudar?

    Estou fazendo um form com 2 botões.

    O primeiro irá verificar se no em determinado diretório existe as pastas das quais eu deixei o diretório na Planilha1. Funcionalidade - Exemplo: na planilha deixei os links:

    • C:\Users\raul.germano\Desktop\Teste Alterar Nome\pasta1
    • C:\Users\raul.germano\Desktop\Teste Alterar Nome\pasta2
    • C:\Users\raul.germano\Desktop\Teste Alterar Nome\pasta3
    • C:\Users\raul.germano\Desktop\Teste Alterar Nome\pasta4

    Ele irá verificar um após o outro. Se o primeiro diretório existir, então pulará para o segundo, se o segundo não existir, ele irá criar uma pasta com o nome "pasta2" (como esta logo a cima), caso o terceiro diretório exista, ele irá pular para o ultimo, se ele existir, então como será o ultimo, ele irá mostrar uma mensagem alertando a conclusão do procedimento, se não existir, irá criar e exibir a mensagem.

    O Segundo fará outra verificação. Ele entrará pasta por pasta (não terá erro de direcional, afinal, as pastas que foram citadas na Planilha1 existem todas), então irá verificar se existe uma imagem chamada "Imagem2018", se existir na pasta1, então, irá pular para a pasta2, se ela não tiver a imagem com o nome informado, então, irá colar nela...Até chegar no ultimo direcional que estará na Planilha1.

    O primeiro botão, eu consegui fazer a funcionalidade, mas não estou conseguindo programar o botão dois. Podem me ajudar?

    sexta-feira, 13 de abril de 2018 19:35

Todas as Respostas

  • Cinco dicas que foram muito úteis para mim:

    1) Quando não sei fazer algo no VBA, vou ao menu EXIBIÇÃO >> MACROS >> GRAVAR MACRO
    Faço o que eu quero aí volto ao menu EXIBIÇÃO >> MACROS >> PARAR GRAVAÇÃO
    Aperto Alt + F11 e vejo como a macro fez aquilo. Tento entender e tento adaptar.

    2) Quando vou criar um código e o resultado não está saindo como o esperado, entro no código e vou apertando F8 para executar passo a passo, aí vou passando o mouse sobre as variáveis para verificar se o valores delas estão corretos, já consertei milhares de códigos dessa forma.

    3) Antes de executar o código, vou ao menu Depurar >> Compilar. Isso ajuda corrigir erros mais simples, como o nome de uma variável digitado errado.

    4) Declaro todas as variáveis. Isso também evita erros.

    5) Sempre uso o Option Explicit lá no início. Ele me obriga a declarar as variáveis.

    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    sábado, 14 de abril de 2018 17:39
  • Ae meu fi, boa noite.

    Veja o exemplo 

    Imports System.IO
    Public Class Form1
    
        Dim Pastas As New List(Of String)
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Pastas.Add("C:\Users\raul.germano\Desktop\Teste Alterar Nome\pasta1")
            Pastas.Add("C:\Users\raul.germano\Desktop\Teste Alterar Nome\pasta2")
            Pastas.Add("C:\Users\raul.germano\Desktop\Teste Alterar Nome\pasta3")
            Pastas.Add("C:\Users\raul.germano\Desktop\Teste Alterar Nome\pasta4")
            For x As Integer = 0 To Pastas.Count - 1
                If Directory.Exists(Pastas.Item(x)) Then
                    'exist
                Else
                    'nao exist
                    Directory.CreateDirectory(Pastas.Item(x))
                End If
            Next x
            'segundo for
            For x As Integer = 0 To Pastas.Count - 1
               If File.Exists(Pastas.Item(x) & "\Imagem2018") Then
                    'exist
                Else
                    'nao exist
                    File.Copy("Imagem2018", Pastas.Item(x) & "\Imagem2018")
                End If
            Next x
            MsgBox("sucesso")
        End Sub
    End Class

    Veja se e isso mesmo, ou eu me enganei. :) 


    sábado, 14 de abril de 2018 22:14