FTP tester si fichier existe

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:

---

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

---

bonjour,
c'est + de la syntaxe ftp que du vbs :aie:
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

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

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:

---

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é"

---