estellemorris
Programmer
I have found a solution but having problems with permissions on my shared web server.
Here is a snippet of my ASP page.
CODE
Dim fso, TF, DataFileName
DataFileName = "c:\SAMPLE.TXT"
FTPFileName = "C:\CMDS.FTP"
Set fso = CreateObject("Scripting.FileSystemObject")
Set TF = fso.CreateTextFile(DataFileName , True)
TF.WriteLine("SOME TEXT DATA")
TF.close
'FTP Text file to Server
Set TF = fso.CreateTextFile(FTPfilename, True)
TF.WriteLine("open <SERVER>")
TF.WriteLine("USER")
TF.WriteLine("PASSWORD")
TF.WriteLine("cd /dropdir")
TF.WriteLine(" put " & DataFileName )
TF.WriteLine(" quit ")
TF.CLOSE
Set objShell = CreateObject("Wscript.Shell")
FtpCommand = "FTP -s:" & FTPfilename & " -i -d "
objShell.Run FTPCommand
This method fails with a "VBscript Runtime error '800a0046' Permission denied" at the line objShell.Run FTPCommand when I run it from my website.
Any advice ?
Thanks
Here is a snippet of my ASP page.
CODE
Dim fso, TF, DataFileName
DataFileName = "c:\SAMPLE.TXT"
FTPFileName = "C:\CMDS.FTP"
Set fso = CreateObject("Scripting.FileSystemObject")
Set TF = fso.CreateTextFile(DataFileName , True)
TF.WriteLine("SOME TEXT DATA")
TF.close
'FTP Text file to Server
Set TF = fso.CreateTextFile(FTPfilename, True)
TF.WriteLine("open <SERVER>")
TF.WriteLine("USER")
TF.WriteLine("PASSWORD")
TF.WriteLine("cd /dropdir")
TF.WriteLine(" put " & DataFileName )
TF.WriteLine(" quit ")
TF.CLOSE
Set objShell = CreateObject("Wscript.Shell")
FtpCommand = "FTP -s:" & FTPfilename & " -i -d "
objShell.Run FTPCommand
This method fails with a "VBscript Runtime error '800a0046' Permission denied" at the line objShell.Run FTPCommand when I run it from my website.
Any advice ?
Thanks