Boa tarde Fábio,
Agora o Script funcionou. Só tive que realizar algumas alterações na parte de verificação da data, pois desta forma ele não estava reconhecendo a data de modificação do arquivo e incluí uma variável para contar a quantidade de arquivos transferidos. Tive
que alterar também a forma de me conectar ao diretório pois, no meu caso, o ftp não está aceitando a conexão direta na pasta que eu quero. Irei verificar no servidor depois. Depois desta alteração, ficou da seguinte forma:
strFolder = "c:\temp" 'A pasta onde estão os arquivos para enviar
strFTPUser = "teste" 'Usuário do FTP
strFTPSenha="abc123" 'Senha do FTP
strFTPScript="C:\Temp\COMANDOS_FTP.txt" 'Arquivo com os comandos FTP, ele será criado
strFTPDestino="ftp.meudominio.com.br/teste" 'Destino dos arquivos
strFTPDiretorio="/diretorio_desejado" 'Diretório FTP
strcont = 0 'Contador de arquivos a serem transferidos
strDataCorte = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("WScript.Shell")
''# Directory to scan
Set objFolder = objFSO.GetFolder(strFolder)
'Inicia a criação do arquivo de script
Set objTextFile = objFSO.OpenTextFile(strFTPScript, 2, True)'2=ForWriting
objTextFile.WriteLine(strFTPUser)
objTextFile.WriteLine(strFTPSenha)
'Exibe a quantidade de arquivos transferidos, caso strcont > 0
if strcont > 0 then
WScript.echo strcont & " arquivos estão na fila para transferência!"
'Mostra que não existe nenhum arquivo modificado
else
WScript.echo "Nenhum arquivo foi enviado pra fila de transferência"
END IF
'Aqui ele vai entrar e verificar quais são os arquivos maiores que a data de corte
Go(objFolder)
'Finaliza Criação do script FTP
objTextFile.WriteLine("quit")
objTextFile.close
objshell.run ("ftp -s:" & strFTPScript & " " & strFTPDestino)
' -- Funções
Sub Go(objDIR)
If objDIR <> "\System Volume Information" Then
For Each eFolder in objDIR.SubFolders
Go eFolder
Next
For Each strFiles In objDIR.Files
strFileName = strFiles.Name
strFilePath = strFiles.Path
'Na próxima linha compara a data
If (dateDiff("d",strFiles.DateLastModified,now) <= strDataCorte) Then
'Aqui ele escreve o put dentro do arquivo de scritp FTP
objTextFile.WriteLine("put " & strFiles.path)
strcont = strcont + 1
End If
Next
End If
End Sub
Está funcionado perfeitamente agora! Só mais uma dúvida: tem como colocar o prompt em que o comando ftp é executado para executar como oculto?
Muito obrigado a todos pela ajuda!!!
Vlw!
