IF ELSEIF END IF OU SELECT

RICOCARDOZO 21/01/2011 23:00:40
#363042
Olá a todos
Gostaria de saber como posso fazer ;
Tenho 3 arquivos em uma pasta do pendrive gostaria de criar uma condicao;

Procura arquivo numero 1 na pasta backup do micro.
Se o arquivo numero 1 não for encontrado na pasta backup copia do pen drive para a pasta backup.
Se for encontrado passa para proxima opção.

Procura arquivo numero 2 na pasta backup do micro.
Se o arquivo numero 2 não for encontrado na pasta backup copia do pen drive para a pasta backup.
Se for encontrado passa para proxima opção.

Procura arquivo numero 3 na pasta backup do micro.
Se o arquivo numero 3 não for encontrado na pasta backup copia do pen drive para a pasta backup.
Se for encontrado passa para proxima opção.

fim da execuçao.

Será que tem como fazer com select ou tem que ser com if else end if ?
LLAIA 21/01/2011 23:14:52
#363046 Resposta escolhida
com ifs e else é possível.

if Dir(C:\backup_micro\arquivo1) = [Ô][Ô] then
   copy pendrive\arquivo1 >>>  C:\backup_micro
end if

if Dir(C:\backup_micro\arquivo2) = [Ô][Ô] then
   copy pendrive\arquivo2 >>>  C:\backup_micro
end if

if Dir(C:\backup_micro\arquivo3) = [Ô][Ô] then
   copy pendrive\arquivo3 >>>  C:\backup_micro
end if



agora se vc quiser abortar a operação quando houver cópia, de um exit sub após a instrucão de cada cópia.
Tópico encerrado , respostas não são mais permitidas
Voltar