none
trabalhar com FTP RRS feed

  • Pergunta

  • 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

     

     

     

     

    quinta-feira, 22 de julho de 2010 00:35

Todas as Respostas