CLASSE FTP SANS API NI OCX

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018 - 19 juin 2005 à 09:48
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018 - 26 avril 2008 à 12:12

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/32161-classe-ftp-sans-api-ni-ocx

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
26 avril 2008 à 12:12

En fait tu as critiqué la source de "Multiprise" que j'avais déjà corrigée :
www.vbfrance.com/codes/ALTERNATIVE-FTP-SANS-API-SANS-OCX_20445.aspx

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
22 avril 2008 à 08:21

Je vais voir les points que tu as signalé, mon script a fonctionné jusqu'à l'année dernière, mais après je l'ai remplacé par un petit programme DotNet car la politique de sécurité du site FTP que j'utilisais n'acceptait plus cette version DOS.

cdubouc Messages postés 1 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 21 avril 2008
21 avril 2008 à 22:12

Merci infiniment pour le module Sub CreerScriptFtp(), qui m'est très utile.

Néanmoins quelques erreurs doivent être corrigées pour qu'il tourne sans problème.

1°) Deux erreurs déjà signalées par un autre

à la ligne 1 il faut ajouter un espace après Open
> ScriptFTP "Open " & NomServeur & vbCrLf

à la ligne 2 il faut ajouter la commande user du ftp
> ScriptFTP ScriptFTP & "User " & NomUtilisateur & " " & MotDePasse

2°) Une autre erreur de dactylographie:
A la ligne 51 : un espace de trop après le joker
> ScriptFTP ScriptFTP & "mput " & "*.exe" & vbCrLf

3°) Concernant le message d'erreur 6 (dépassement de capacité) généré par les lignes 82 et 84 (ResultatCommande =), il se corrige en modifiant la déclaration Dim ResultatCommande As Byte (ligne 16) en remplaçant Byte par Long.

4°) Concernant le fichier créé #Canal:
- Lignes 70 (Print #Canal2, ScriptFTP), il faut remplacer #Canal2 par #Canal
- Ligne 72 (Close Canal2) il faut remplacer Canal2 par #Canal

Merci encore

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
2 févr. 2007 à 13:56

Quelques liens :
- An FTP client library for .NET 2.0
www.codeproject.com/vb/net/FtpClient.asp
www.codeproject.com/useritems/FtpPublisher.asp : synchro FTP
www.codeproject.com/cs/internet/SimpleFTPDemo.asp
www.codeproject.com/useritems/FtpDotNet.asp
www.codeproject.com/cs/library/downloader.asp : asynch
www.codeproject.com/useritems/Downloader.asp
www.codeproject.com/csharp/FileDownloadManager.asp
www.codeproject.com/useritems/filedownloader.asp

- Multiple File Uploads, C# and NeoSwiff By DFU23
www.codeproject.com/useritems/neoswiff_upload.asp

- This article demonstrates how to post values to forms and
how to upload files directly from .NET with the WebRobot component
www.codeproject.com/useritems/multipartformfileupload.asp

- www.csharpfr.com/codes/NET-FREE-FTP_37948.aspx

- www.vbfrance.com/code.aspx?ID=35410

tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 9
21 juin 2005 à 15:45

C'est clair, Access c'est trop de la bouloche, même si parfois ya des bugs dignes de X-File, mais ya toujours une raison, encore faut-il la trouver. Les sauvegardes et compactages sont indispensables!

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
20 juin 2005 à 12:17

C'est parce que le développement sous Access (j'ai utilisé cette classe sous Access) réserve des surprises étonnantes ! le code Access est du code interprété mélangé à du code compilé, et si tu mélanges aussi les versions d'Access, hé bien parfois ya des trucs qui ne fonctionnent plus, comme l'opérateur Not !!! de toute façon, une application Access parfois ne fonctionne plus, il faut recompacter et parfois meme restaurer un backup. C'est pour cette raison que je cherche à refaire la même chose en dotnet, mais ce n'est quand même pas aussi simple qu'Access.

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 24
20 juin 2005 à 11:50

C'est original cette façon d'afficher des conditions dans les IF :

If False = oFTP.bAjouterFichier(sSrc1, sDestFTP1) Then Exit Sub

Tu peux aussi l'écrire ainsi :

If Not oFTP.bAjouterFichier(sSrc1, sDestFTP1) Then Exit Sub

cs_Stephane Messages postés 550 Date d'inscription vendredi 5 janvier 2001 Statut Membre Dernière intervention 23 septembre 2006
19 juin 2005 à 14:11

Public Sub Sablier(Optional bDesactiver As Boolean = False)
Screen.MousePointer = iif(bDesactiver,vbDefault,vbHourglass)
End Sub

c'est encoe mieu ;)

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
19 juin 2005 à 09:48

Oops, petite correction :
Public Sub Sablier(Optional bDesactiver As Boolean = False)

If bDesactiver Then
Screen.MousePointer = vbDefault
Else
Screen.MousePointer = vbHourglass
End If

End Sub

Discussions similaires

générer le diagramme des classes à partir du diagramme des cas d'utilisation

envoi sms

Fichier missing richtx32.ocx

vb6 et crystl32.ocx

application sms avec php

Votre réponse

Discussions similaires