Decompresser un fichier durant transfert FTP
Bonjour,
J'ai cherché sur google et sur le forum et je n'ai pas trouvé de solution à mon problème, qui est le suivant.
Actuellement j'ai un VBscript qui récupère des fichier zipper en local et qui les envoie sur le serveur vers un autre dossier via la commande mget. Et j'appelle Filezilla avec ObjFTPScriptShell.Run
J'aimerais pouvoir décompressé ses fichiers automatiquement lors du transfert des fichier zipper.
Est ce possible?
ci joint un bout de code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
'build input file for ftp command
strcmd = strcmd & "USER " & iUsername & vbCRLF
strcmd = strcmd & iPassword & vbCRLF
strcmd = strcmd & "cd " & iRemotePathShell & vbCRLF
strcmd = strcmd & "binary" & vbCRLF
strcmd = strcmd & "prompt n" & vbCRLF
strcmd = strcmd & "mget " & iFileNameShell & vbCRLF
strcmd = strcmd & "quit" & vbCRLF & "quit" & vbCRLF & "quit" & vbCRLF
'writeLogFile "strcmd",strcmd
sFTPTempFile = FontRootDir & "\tmp\ftptempfile"
sFTPResults = FontRootDir & "\tmp\ftptempres"
sFTPTempFileShell = formatpath(FontRootDir) & "\tmp\ftptempfile"
sFTPResultsShell = formatpath(FontRootDir) & "\tmp\ftptempres"
'Génération du fichier temporaire du transfert ftp
Set fFTPScript = ObjFTPScriptFSO.CreateTextFile(sFTPTempFile, True)
fFTPScript.WriteLine(strcmd)
fFTPScript.Close
Set fFTPScript = Nothing
'writeLogFile "strcmd","%comspec% /c FTP -n -s:" & sFTPTempFileShell & " " & iSite & " > " & sFTPResultsShell
res=ObjFTPScriptShell.Run("%comspec% /c FTP -n -s:" & sFTPTempFileShell & " " & iSite & " > " & sFTPResultsShell, 0, TRUE)
If res <> 0 Then
writeLogFile "Erreur","Erreur lors du transfert ftp du fichier " & iLocalFile
Wscript.quit res
Else 'res <> 0
writeLogFile "Info","Transfert ftp OK "
End If 'res <> 0 |
Merci d'avance de votre aide.