Upload de fichiers sur un ftp

Version imprimable

16/06/2004, 10h19
Crazyblinkgirl

Upload de fichiers sur un ftp

Bonjour,

Je voudrais pouvoir uploader des fichiers sur un ftp au lieu de les mettre simplement dans un répertoire mais je ne sais pas du tout comment faire et je n'ai pas trouvé de docs à ce sujet.

Quelqu'un saurait-il comment faire cela?

Merci d'avance pour votre aide!
16/06/2004, 11h18
soufienne

bonjour !
je n'ai vraiment pas compris ce que vous voulez faire exactement
si vous pouvez m'eclaircir un peu ca serait bien :wink:
16/06/2004, 11h25
Crazyblinkgirl

Ben j'ai un formulaire que je transforme en fichier .html et que je stock dans un repertoire. Là on me demande en plus de l'uploader via ftp vers un autre répertoire mais je ne sais pas comment faire cela.
16/06/2004, 11h58
soufienne

ecoute je crois que le lien que je t'ai donne ferais l'affaire mais il manque l'enregistrement du fichier dans un repertoire tu peut voir comment enregistrer un fichier avec l'objet

Code:

Scripting.FileSystemObject

il y a sur ce forum un tutorial sur ca dont voici l'adresse http://asp.developpez.com/faq/?page=FILESYSTEMOBJECT
tu me tiens au courant ok :)
16/06/2004, 12h03
Crazyblinkgirl

Je suis pas sure car il faut que je renseigne l'ip du serveur sur lequel se trouve le ftp, un login et un mot de passe et il n'y a pas ca dans le code :cry:

J'ai trouvé ce code en asp :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Dim strHost, strUser, strPass, strMode, LocalDir, RemoteDir
Dim output, ReturnCode, srtScript
Dim objFSO, strFile, objTempFldr, objFile, objRegExp
Dim objShell, WSX, ReturnCode, Output, strLog, strErrorLog
 
Const COMMAND_FTP = "ftp.exe -i -s:"
 
strHost = "...."
strUser = "babla"
strPass = "blabla"
 
strMode = "binary"
LocalDir = "/var/www/CR_tickets"
 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
 
strFile =  Server.MapPath("Fichier_CR/CR_Numero_Ticket_"&request("IdTicket")&".htm")                     
set objTempFldr =  strFile & ".ftp"
 
Set objFile = FSO.OpenTextFile( strFile, 2, True )
 
objFile.WriteLine( strUser )
objFile.WriteLine( strPass )
If LocalDir <> "" Then objFile.WriteLine( "lcd " & LocalDir )
If RemoteDir <> "" Then objFile.WriteLine( "cd " & RemoteDir )
objFile.WriteLine( Mode )
 
objFile.Close() 
Set objShell = Server.CreateObject("WScript.Shell")
 
set WSX = objShell.Exec( COMMAND_FTP & strFile & " " & strHost )
set ReturnCode = WSX.StdErr
set Output = WSX.stdOut
strErrorLog = objTempFldr.Path & "ftpErrors.txt"
strLog = objTempFldr.Path & "ftpLog.txt"
 
Set objFile = FSO.OpenTextFile( strErrorLog, 2, True )
objFile.Write( ReturnCode.ReadAll() )
objFile.Close()
 
Set objFile = FSO.OpenTextFile( strLog, 2, True )
objFile.Write( Output.ReadAll() )
objFile.Close()
set FSO = nothing
set objFile = nothing
 
'FSO.DeleteFile strFile, True
set FSO = nothing
 
Set objRegExp = New RegExp   
objRegExp.IgnoreCase = True
 
objRegExp.Pattern = "not connected|invalid command|error"
 
If (objRegExp.Test( Output.ReadAll ) = True ) or 
(objRegExp.Test( ReturnCode.ReadAll ) ) Then ‘on one line
   FTP = False
Else
   FTP = True
End If 
Set objRegExp = nothing

Mais j'ai une erreur 500.
Quelqu'un a une idée, car je ne comprends pas tout.
Merci encore.

16/06/2004, 16h09
franculo_caoulene

Salut,

dans IE outils/options internet onglet avancé puis décocher "afficher les erreur HTTP simplifiées" tu auras un autre message d'erreur (j'espère) donnes le nous.

Ca fait appelle a du WSH (Windows Script Host) c'est du vbscript coté serveur (vbscript exécuté sur la machine quoi).
Renseigne toi de ce coté là.
Je crois me souvenirs qu'une doc est à télécharger sur microsoft.
16/06/2004, 16h38
soufienne

est ce que t'as un anti virus (norton) si oui tu suis ces etapes
tu ouvre norton ensuite tu clique sur option
>tu clique sur script blocking >et decoche enabled script blocking
bon essaye et bonne chance

J'ai réduit mon code car à priori je n'ai pas besoin d'écrire dans le fichier. Cela me donne donc:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Dim strHost, strUser, strPass, strMode, LocalDir, RemoteDir 
Dim output, ReturnCode, srtScript 
Dim objFSO, strFile, objTempFldr, objFile, objRegExp 
Dim objShell, WSX, ReturnCode, Output, strLog, strErrorLog 
 
Const COMMAND_FTP = "ftp.exe -i -s:" 
 
strHost = "...." 
strUser = "babla" 
strPass = "blabla" 
 
strMode = "ascii" 
LocalDir = "/var/www/CR_tickets" 
 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
 
strFile =  Server.MapPath("Fichier_CR/CR_Numero_Ticket_"&request("IdTicket")&".htm" &".ftp")                      
 
Set objShell = Server.CreateObject("WScript.Shell") 
 
set WSX = objShell.Exec( COMMAND_FTP & strFile & " " & strHost ) 
set ReturnCode = WSX.StdErr 
set Output = WSX.stdOut 
strErrorLog = strFile.Path & "ftpErrors.txt" 
strLog = strFile.Path & "ftpLog.txt" 
 
Set objFile = FSO.OpenTextFile( strErrorLog, 2, True ) 
objFile.Write( ReturnCode.ReadAll() ) 
objFile.Close() 
 
Set objFile = FSO.OpenTextFile( strLog, 2, True ) 
objFile.Write( Output.ReadAll() ) 
objFile.Close() 
set FSO = nothing 
set objFile = nothing 
 
set FSO = nothing 
 
Set objRegExp = New RegExp    
objRegExp.IgnoreCase = True 
 
objRegExp.Pattern = "not connected|invalid command|error" 
 
If (objRegExp.Test( Output.ReadAll ) = True ) or 
(objRegExp.Test( ReturnCode.ReadAll ) ) Then ‘on one line 
   FTP = False 
Else 
   FTP = True 
End If 
Set objRegExp = nothing

J'ai l'erreur :

Code:

Object required : 'strFile'

au niveau de la ligne :

Code:

strErrorLog = strFile.Path & "ftpErrors.txt"

Merci à vous deux pr vos remarques et conseils, jv tacher de voir de ce coté la en attendant!

17/06/2004, 11h32
fredoche
Citation:
Envoyé par Crazyblinkgirl

J'ai réduit mon code car à priori je n'ai pas besoin d'écrire dans le fichier. Cela me donne donc:

Code:

1 2 3 4 5 6 (...) strFile = Server.MapPath("Fichier_CR/CR_Numero_Ticket_"&request("IdTicket")&".htm" &".ftp") (...)

J'ai l'erreur :

Code:

Object required : 'strFile'

au niveau de la ligne :

Code:

strErrorLog = strFile.Path & "ftpErrors.txt"

Merci à vous deux pr vos remarques et conseils, jv tacher de voir de ce coté la en attendant!
J'ai l'impression que c'est normal, c'est pas un objet, c'est un chemin, donc une string.
Essaye avec ça avant :
Code:

1 2 3 Objfile = FSO.getfile (strFile) strErrorLog = Objfile.Path & "ftpErrors.txt"
ou alors plus simple :

Code:

strErrorLog = strFile & "ftpErrors.txt"

puisque tu viens de récup le chemin avec mappath

je propose... j'ai pas lu tout ton code ....
20/06/2004, 11h55
Crazyblinkgirl

Merci à fredoche,soufienne et franculo_caoulene pour votre aide, j'ai enfin réussi à faire ce que je voulais. Pour ceux que ca interesse, il existe un composant du nom de "AspInet.FTP" qui permet de faire des download/upload sur ftp.