Discussion :

[DonKnacki]

Bonjour à tous

J'ai une appli qui télécharge un fichier sur un ftp
Le problème est que je ne connais pas le nom du fichier à l'avance puisque celui ci est composé du jour ou il a été déposé

Mon idée était donc de tester pour les 31 dates possibles et de voir si le fichier existe

Comment faire pour savoir si le fichier est bien présent dans le ftp ?

Pour le moment je me contente de faire autant de get que de jour mais au bout d'un moment, le ftp me déconnect
De plus cela me crée 30 fichiers à 0Ko et 1 bon fichier (donc pas génial)

Pour info mon code :

Code vbs :

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
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.CreateTextFile("sessionftp.txt")
Set WshShell = CreateObject("WScript.Shell")
 
With objFile
	.WriteLine ftpusername & "@" & ftpserver & " " & gwftpusername
	.WriteLine ftppass
	.WriteLine gwftppass
	.WriteLine "cd " & """" & ftpdir  & """"
	for jour = 1 to 31
		if (len(jour) < 2) then jour="0" & jour
		filetoget="Fichier" & yyyymm & jour & ".csv"
		.WriteLine "get " & filetoget
	next 
	.Close
End With
 
strFTP = "%systemroot%\System32\ftp.exe -s:sessionftp.txt " & gwftpserver
strFTP = WshShell.ExpandEnvironmentStrings(strFTP)
' wscript.echo(strFTP)
WshShell.Run strFTP

[omen999]

bonjour,
c'est + de la syntaxe ftp que du vbs
d'abord faire une commande ls pour récupérer
les noms des fichiers du répertoire courant du serveur
sélectionner le nom du fichier présentant la syntaxe souhaitée
et un get avec ce nom pour finir

[DonKnacki]

merci pour ta réponse
Je connais les commandes que tu m'indiques mais l'idée est de ne pas le faire manuellement

[DonKnacki]

N'ayant pas trouvé la solution pour vérifier qu'un fichier existe sur le ftp, j'ai décidé de télécharger les 31 fichiers puis de supprimer tout ceux qui ont une taille de 0Ko

Pour info, voila mon code

Code vbs :

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
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.CreateTextFile("sessionftp.txt")
Set WshShell = CreateObject("WScript.Shell")
 
With objFile
	.WriteLine ftpusername & "@" & ftpserver & " " & gwftpusername
	.WriteLine ftppass
	.WriteLine gwftppass
	.WriteLine "cd " & """" & ftpdir  & """"
	For jour = 1 to 31
		if (len(jour) < 2) then jour="0" & jour
		filetoget="Fichier" & yyyymm & jour & ".csv"
		.WriteLine "get " & filetoget
	Next 
	.WriteLine "quit"
	.Close
End With
 
strFTP = "%systemroot%\System32\ftp.exe -s:sessionftp.txt " & gwftpserver
strFTP = WshShell.ExpandEnvironmentStrings(strFTP)
WshShell.Run strFTP,,true
 
stRep = "C:\monRep"
If objFso.FolderExists(stRep) Then
	For each oFichier in  objFso.GetFolder(stRep).Files
		if oFichier.Size = 0 then 
			oFichier.delete
		end if 
	Next
End If
 
Wscript.Echo "Transfert terminé"