Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Copiar arquivos

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Burucaweb



Mensagens : 1
Data de inscrição : 11/06/2012

MensagemAssunto: Copiar arquivos   Seg Jun 11, 2012 3:31 pm

Bom dia Pessoal,

Primeiramente, quere lhes agradecer por me aceitarem no fórum! Very Happy
Sou de Floripa, e estou tentando aprender um pouco sobre programação.

Tenho o seguinte código:

Sub test1()
Dim c As Object, x, i As Long, n As Long
Set c = CreateObject("Scripting.FileSystemObject")
oldpath = Range(["D2"]): newpath = Range(["D3"])
x = Range([c2], [c2].End(xlDown))
For i = 1 To UBound(x)
c.copyfile oldpath & x(i, 1), newpath & x(i, 1)
n = n + 1
Next: MsgBox n & " arquivos copiados com sucesso", vbInformation: End Sub

Consigo com isto, utilizando o excel, copiar várias imagens de uma determinada pasta para outra pasta.

Porém, na planilha do excel, tenho duas colunas: Uma com o nome das imagens (001.jpg, 002.jpg, 003.jpg, etc) e outra com o tamanho das imagens (1800x1200 ou 2700x1800 ou 3600x2400).Gostaria que o computador procurasse estas imagens em uma pasta e suas subpastas e as copiasse para uma das pastas (1800x1200 ou 2700x1800 ou 3600x2400), conforme o tamanho das imagens.

Obrigado pela atenção

Burucaweb
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Copiar arquivos
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como copiar arquivos para outro GM
» [PEIDO] Como subir arquivos no 4Shared/Mediafire
» [ON]Arquivos Fla 02
» Gta San Andreas - Arquivos de Audio
» Problema com arquivos DOC e PDF

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Usuários Básico :: Excel Básico-
Ir para: