Bonjour,
Pour retrouver tous les sous-répertoires et tous les fichiers d'un répertoire sur le serveur j'utilise le code suivant
Connaissant exactement l'URL d'un fichier est-il possible d'obtenir la date et l'heure de la dernière modification de ce fichier ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 InitDir = "ftp://rudyv.be:password@ftp.rudyv.be..." Set sh = CreateObject("shell.application") Set Root = sh.namespace(InitDir) For Each Rootitem In Root.Items ' pour chaque répertoire Set subf = sh.namespace(InitDir & "/" & Rootitem.Name) For Each subitem In subf.Items ' pour chaque fichier Ident.Text = Rootitem.Name & "/" & subitem.Name ' ce qui donne les noms du sous répertoire et du fichier ... DoEvents Next Next
Grand merci d'avance pour votre aide
Partager