Shell (command) = depassement de capacite

Question

Je dois creer une appli qui lance du FTP. En  VB.Net, je passe par des commandes DOS car il me faudrait creer une classe FTP!!! Bravo Visual Basic .Net ...  :big) 

Au debut, aucun probleme, mais desormais, j'ai une erreur: j'obtiens une depassement de capacite et je ne sais pas pourquoi. 
Voici la ligne qui prvoque l'erreur:
ResultatCommande = Shell("command.com /c ftp -s:" & Environ("windir") & "\ScriptFTP.scr", AppWinStyle.Hide)

Le fichier scriptftp.scr est ainsi genere (juste avant):

            'generation du script en chaine de caracteres
            'Ouverture d'une session FTP
            ScriptFTP = ""
            ScriptFTP = "open " & NomServeur & vbCrLf
            ScriptFTP = ScriptFTP & NomUtilisateur & vbCrLf
            ScriptFTP = ScriptFTP & MotDePasse & vbCrLf

            'Proprietes du transfert
            ScriptFTP = ScriptFTP & "hash" & vbCrLf         ' hachage des fichiers
            'ScriptFTP = ScriptFTP & "prompt off" & vbCrLf   ' pas de demande de confirmation
            ScriptFTP = ScriptFTP & "Binary" & vbCrLf       ' mode de transfert : binaire 

            'envoi des elements du dossier export (local) dans le dossier IN du FTP
            ScriptFTP = ScriptFTP & "lcd " & Dossier_Exp & vbCrLf
            ScriptFTP = ScriptFTP & "cd /IN/" & vbCrLf
            ScriptFTP = ScriptFTP & "mput *" & vbCrLf

            'reception des elements du dossier import du FTP dans le dossier d'import (local)
            ScriptFTP = ScriptFTP & "lcd " & Dossier_Imp & vbCrLf
            ScriptFTP = ScriptFTP & "cd ../OUT/" & vbCrLf
            ScriptFTP = ScriptFTP & "mget *" & vbCrLf

            'fermeture de session
            ScriptFTP = ScriptFTP & "bye" & vbCrLf
            'ScriptFTP = ScriptFTP & "exit" & vbCrLf

            'enregistrement dans un fichier
            Canal = FreeFile()
            FileOpen(Canal, Environ("windir") & "\ScriptFTP.scr", OpenMode.Output)
            PrintLine(Canal, ScriptFTP)
            FileClose(Canal)

Je me prends la tete a comprendre mais je ny 'arrive pas. Merci de votre aide.

Ben

Vaut mieux etre bourré que con: ca dure moins longtemps...  :shy)

Mamaw · Answer

Bonjour,
J'ai exactement la m&#234;me erreur, l'as tu r&#233;solu et si oui comment ?
Merci.

capuccino_fr · Answer

j'ai trouv&#233; une classe FTP, qui est complete et facile d'utilisation.
tu trouveras toutes les classes sur : http://www.mentalis.org/classlib/index.php?category=All+Classes

pour info, j'utilise :
FtpConnection.vb
DataConnection.vb
FileItem.vb

je crois que ce sont les 3 seules. de toute facon, n'hesite pas a me redemander.
C'est test&#233; et approuv&#233;... 

je mettrai peut etre un exemple en ligne un jour, si ca interesse du monde.
@ bientot 

Vaut mieux etre bourr&#233; que con: ca dure moins longtemps...

Shell (command) => depassement de capacite

2 réponses

Discussions similaires