clipitonio
(usa CentOS)
Enviado em 08/11/2012 - 09:44h
Estou tentando, peguei um como referencia. Mas até agora não consegui entender.
Creio que a linha de raciocínio abaixo seja bem parecida. Mas nao tenho certeza.
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
