Ftp version française =-

Soyez le premier à donner votre avis sur cette source.

Vue 5 483 fois - Téléchargée 658 fois

Description

Pour ceux qui voulaient une version française du prog FTP que j'avais posté, ben la voici.
Pour la traduction des commentaires, va falloir attendre un peu car il y en a environ 150 lignes ! Par contre, l'interface à été complétement traduite.

Je rappelle que le crédit de ce prog ne m'appartient pas.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
24
ZIP est parfaitement valide, je viens de tester.
Messages postés
83
Date d'inscription
vendredi 2 avril 2004
Statut
Membre
Dernière intervention
8 juillet 2012
1
Bonjour, c'est bizarre, je n'arrive pas à ouvrir le fichier ZIP :-(
Est-ce que quelqu'un pourrait le tester pour savoir si c'est de mon côté ou du côté vbfrance ?

Merci,

Relax62
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
J'ai fait un peu le ménage dans ces commentaires : vous êtes plus à la maternelle, les gars !!!

Renfield - Admin CS
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
ce n'est pas si complexe, loin de là....

mets les propriété
OleDragMode sur automatic
OleDropMode sur manual


Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
'# SI l'on ne Droppe pas des fichiers, on quitte
If Not Data.GetFormat(vbCFFiles) Then Exit Sub

Dim i As Integer
For i = 1 To Data.Files.Count
'# transfert du fichier
'# ici, j'ajoute les elements, pour le test !
ListView1.ListItems.Add Text:=Data.Files(i)
Next i
End Sub

Private Sub ListView1_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
'# SI l'on ne Droppe pas des fichiers, on interdit de lacher les elements
If Not Data.GetFormat(vbCFFiles) Then Effect = 0
End Sub

Private Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
Dim Item As ListItem

For Each Item In ListView1.ListItems
If Item.Selected Then
Data.Files.Add Item.Text
End If
Next Item

Data.SetData , vbCFFiles
End Sub
Messages postés
14
Date d'inscription
vendredi 6 septembre 2002
Statut
Membre
Dernière intervention
8 mars 2005

salut comment faire pour envoyer un fichier "TXT" sur un "FTP" puis crée un dossier pour mettre le fichier "TXT" exemple: http://www.multimania.com/"lelogin"/allo/"FichierTXT"

et de recevoir les donnés du fichier "TXT" dans une textbox d'un prog vb.

merci de me repondre.
- mclic -
Afficher les 7 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.