COMMANDE DE NAVIGATION FTP INET (LISTER DS UN LISTBOX)

Commentaire de pcpunch le 01/05/2003 02:13:34

ben pourquoi tu la regarde alors!!! je te force pas!!!!

Commentaire de pcpunch le 01/05/2003 11:30:38

dsl je rectifie de suite !!!!

Commentaire de Urgo le 01/05/2003 12:37:50

Le titre m'avait attiré mais en voyant ton commentaire, ça m'a fait changé d'avis ! :D

Commentaire de pcpunch le 01/05/2003 12:45:46

Urgo pourquoi? g poster cette source car je n ai trouver null part un ex d utilisation de inet avec les commandes dir,cd,cdup etc....
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?????

Commentaire de lumesh le 01/05/2003 13:36:46

sinon essai les underscore _
des fois les _ remplace les espaces et sont remplacés par des espaces ..
on ne sait jamais.
sinon perso je vois pas autre chose

Commentaire de lumesh le 01/05/2003 13:41:19

utilise les APIs FTP de dobe mais le souci c ke ca freeze l'appli meme avec des threads ...
sinon bah t bon pour le winsock :) (long a faire  et  pas facile mais le resultat est parfait)

Commentaire de devsurf le 03/05/2003 00:42:12

oups ...il est dislexique ce forum :) je re-pete:

Quoi qu'il en soit , pour moi c'est  assez instructif  
Alors merci ..)

Commentaire de niourf le 24/07/2003 18:41:28

super!!
moi qui suis newbie ca m'aide enormement pour apprendre
merci beaucoup pcpunch

Commentaire de winsave le 15/11/2003 17:07:56

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

Commentaire de CDAlstom le 03/01/2006 11:44:29

les commandes "get" et "put" fonctionne aussi mais qu'esn est-il pour "mput" et mget"?!? Merci!