COMMANDE DE NAVIGATION FTP INET (LISTER DS UN LISTBOX)

cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
- 1 mai 2003 à 02:11
boyington2
Messages postés
4
Date d'inscription
dimanche 3 décembre 2000
Statut
Membre
Dernière intervention
5 septembre 2009
- 5 sept. 2009 à 13:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6934-commande-de-navigation-ftp-inet-lister-ds-un-listbox

boyington2
Messages postés
4
Date d'inscription
dimanche 3 décembre 2000
Statut
Membre
Dernière intervention
5 septembre 2009

5 sept. 2009 à 13:02
Nikel merci beaucoup pour ce code !
RJLFRANCE
Messages postés
71
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
5 août 2012
1
15 oct. 2006 à 15:11
Je la trouve tres bien ta source, mais connait tu le moyen de connaitre la date et l'heure des fichiers sur le Serveur ?
8/10
CDAlstom
Messages postés
69
Date d'inscription
mercredi 21 septembre 2005
Statut
Membre
Dernière intervention
6 mars 2006

3 janv. 2006 à 11:44
les commandes "get" et "put" fonctionne aussi mais qu'esn est-il pour "mput" et mget"?!? Merci!
cs_dahbia
Messages postés
33
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
4 février 2015

26 juin 2005 à 16:59
supper ton code
merci
bon courrage
winsave
Messages postés
21
Date d'inscription
mercredi 1 janvier 2003
Statut
Membre
Dernière intervention
1 septembre 2005

15 nov. 2003 à 17:07
Pour upgrader un fichier avec des espaces, il faut utiliser cette commande :

InetFTP.Execute , "PUT " & Chr(34) & LocalFile & Chr(34) & "/" & FTPFile

A noter :
Etant donné que le serveur FTP peut être hébergé par un autre OS (Unix,..) il est fortement conseillé de modifier tout les caractères exotiques (! pose de sacrés problèmes avec UNIX !) ; le code devient :

InetFTP.Execute , "PUT " & Chr(34) & LocalFile & Chr(34) & "/" & CleanCarCodeForFTP(FTPFile)

Private Function CleanCarCodeForFTP(ByRef aFile As String) As String
Dim I As Long
Dim CurCar As String
Dim AsciiCode As Long
Dim codeOk As Boolean

For I = 1 To Len(aFile)
CurCar = Mid(aFile, I, 1)
AsciiCode = Asc(CurCar)

codeOk = (AsciiCode > 45 And AsciiCode < 58) Or (AsciiCode > 64 And AsciiCode < 91) Or (AsciiCode > 96 And AsciiCode < 123)
If codeOk Then
CleanCarCodeForFTP = CleanCarCodeForFTP & CurCar
Else
CleanCarCodeForFTP = CleanCarCodeForFTP & "_asc" & AsciiCode & "_"
End If
Next

End Function
Afficher les 22 commentaires