Commande de navigation ftp inet (lister ds un listbox)

Soyez le premier à donner votre avis sur cette source.

Vue 8 881 fois - Téléchargée 1 849 fois

Description

Ben voila cherchant a me servir de inet pour faire un petit prog ftp, et ne trouvant rien sur ce site, j'ai donc chercher a faire marche ce controle inet!!
cette sources sert a naviguer dans les repertoires d'un ftp genre un client ftp!!!
Dans la source les commandes de navigation :
DIR CD CDUP PWD RMDIR MKDIR DELETE RENAME

j'ai mis a disposition sur ce site 2 sources:
une pour le download et une autre pour l'upload avec bar de progression!!

Voila presque tous pour faire un client ftpavec inet !!!!

Source / Exemple :


IN THE ZIP!!!!!!!!!!

Conclusion :


PS : apparement inet ne supporte pas les espace dans les fichiers!!!
genre si je veux supprimer le fichier mon fichier.txt sur mon ftp ca marche po!!! mais si c monfichier.txt ca marche Eureka!!!
Alors si qq as une solution, elle sera la bien venu!!!

Codes Sources

A voir également

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

Nikel merci beaucoup pour ce code !
Messages postés
71
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
5 août 2012
1
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
Messages postés
69
Date d'inscription
mercredi 21 septembre 2005
Statut
Membre
Dernière intervention
6 mars 2006

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

supper ton code
merci
bon courrage
Messages postés
21
Date d'inscription
mercredi 1 janvier 2003
Statut
Membre
Dernière intervention
1 septembre 2005

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.