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