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
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
https://codes-sources.commentcamarche.net/source/6934-commande-de-navigation-ftp-inet-lister-ds-un-listbox
5 sept. 2009 à 13:02
15 oct. 2006 à 15:11
8/10
3 janv. 2006 à 11:44
26 juin 2005 à 16:59
merci
bon courrage
15 nov. 2003 à 17:07
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
6 nov. 2003 à 18:42
24 juil. 2003 à 18:41
moi qui suis newbie ca m'aide enormement pour apprendre
merci beaucoup pcpunch
3 mai 2003 à 02:04
3 mai 2003 à 00:42
Quoi qu'il en soit , pour moi c'est assez instructif
Alors merci ..)
3 mai 2003 à 00:39
Alors merci merci ...)
1 mai 2003 à 13:41
sinon bah t bon pour le winsock :) (long a faire et pas facile mais le resultat est parfait)
1 mai 2003 à 13:39
c dommage si inet a ce probleme il est bon pour la poubelle!!lol
1 mai 2003 à 13:36
des fois les _ remplace les espaces et sont remplacés par des espaces ..
on ne sait jamais.
sinon perso je vois pas autre chose
1 mai 2003 à 13:34
ds ce cas essai mon" & chr(20) & "fichier.txt
le chr(20) pour l'espace.
1 mai 2003 à 12:45
Je crois que j aurais pas du la poster car les commentaires sont assez rude!!!! mais c bon a savoir en plus une note de 1 me semble assez dur?????
1 mai 2003 à 12:38
1 mai 2003 à 12:37
1 mai 2003 à 11:45
1 mai 2003 à 11:30
1 mai 2003 à 09:16
Le projet est vide- pas de Form
J'attendrai tant pis..
1 mai 2003 à 02:13
1 mai 2003 à 02:11
Sinon t'as source ne m'intéresse pas
Donc pas de note