Ola pessoal, gostaria de uma ajuda de vocês;
tenho este script:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set nFolder = CreateObject("Shell.Application")
dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
nFolder = dtmThisYear & "-" & "-" & dtmThisMonth & "-" & dtmThisDay
objFSO.CreateFolder "C:\$Dados\" & nFolder
objFSO.copyfile "C:\$Dados\teste.txt" , "C:\$Dados\" & nFolder & "\"
BOm, ele cria uma pasta com a data atual no formato "yyyy - mm - dd" e copia um arquivo "Teste.txt" para ela;
Preciso q depois disso ele faço o seguinte:
1 - Acessar o ftp (ftp.intrantet.exemplo) e verificar se na pasta "Arquivos" existe uma outa chamada "Bases";
2 - Senão existir a pasta "Bases" deve ser criada no ftp dentro da pasta "Arquivos";
3 - Copiar o arquivo Teste.txt, do local C:\$Dados\" & nFolder & "\", criado pelo script acima, para a pasta criada no ftp (Bases);
(OBS: para acessar o ftp digito no prompt, ftp <enter>, open
ftp.intranet.exemplo <enter>, logo em seguida é pedido o usuário (anonymous) e senha não digito nada, somente aperto enter e ja conecto no ftp, ou seja a senha é em branco!
Logo em seguida preciso de outro script que faça:
1 - verifique a pasta "Bases" no ftp e procure pela pasta com a data atual no formato, "yyyy - mm - dd"
2 - Copie o arquivo da pasta (Teste.txt) com a data atual (somente o arquivo, não a pasta);
3 - Cole o arquivo em "C:\teste\";
Sei q é meio complicadinho, mas acredito q algum aqui possa me ajudar!!
Valew galera
Abçs
