Grazie del suggerimento, allora io ho implementato il codice nella mia pagina, mi crea il file .ftp che poi sarebbe quello che dovrà eseguire tutte le funzioni, ma non accade niente, perchè ???
codice:
<%@LANGUAGE="VBSCRIPT"%>
<%
' Edit these variables to match your specifications
ftp_address = "ftp.XXXX.eu"
ftp_username = "AAAAAAA@aruba.it"
ftp_password = "BBBBBBB"
ftp_remote_directory = "/public/Ricevute/" ' Leave blank if uploading to root directory
ftp_files_to_get = "*.pdf" ' You can use wildcards here (e.g. *.txt)
On Error Resume Next
Set oScript = Server.CreateObject("WSCRIPT.SHELL")
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Build our ftp-commands file
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("/public/test.ftp"))
objTextFile.WriteLine "lcd " & Server.MapPath(".")
objTextFile.WriteLine "open " & ftp_address
objTextFile.WriteLine ftp_username
objTextFile.WriteLine ftp_password
' Check to see if we need to issue a 'cd' command
If ftp_remote_directory <> "" Then
objTextFile.WriteLine "cd " & ftp_remote_directory
End If
objTextFile.WriteLine "prompt"
' If the file(s) is/are binary (i.e. .jpg, .mdb, etc..), uncomment the following line
' objTextFile.WriteLine "binary"
' If there are multiple files to put, we need to use the command 'mput', instead of 'put'
If Instr(1, ftp_files_to_get, "*",1) Then
objTextFile.WriteLine "mget " & ftp_files_to_get
Else
objTextFile.WriteLine "get " & ftp_files_to_get
End If
objTextFile.WriteLine "bye"
objTextFile.Close
Set objTextFile = Nothing
' Use cmd.exe to run ftp.exe, parsing our newly created command file
strCMD = "ftp.exe -s:" & Server.MapPath("/public/test.ftp")
'strTempFile = "C:\" & oFileSys.GetTempName( )
strTempFile = "c:\Ricevute al "&Replace(FormatDateTime(Date(),2),"/","-")
' Pipe output from cmd.exe to a temporary file (Not :| Steve)
Call oScript.Run ("cmd.exe /c " & strCMD & " > " & strTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (strTempFile, 1, False, 0)
On Error Resume Next
' Grab output from temporary file
strCommandResult = Server.HTMLEncode( oFile.ReadAll )
oFile.Close
' Delete the temporary & ftp-command files
'Call oFileSys.DeleteFile( strTempFile, True )
'Call objFSO.DeleteFile( Server.MapPath("test.ftp"), True )
Set oFileSys = Nothing
Set objFSO = Nothing
%>