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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.