[AccessD] [dba-Tech] FTP

[Rocky Smolin]

Thanks Roberto.  I'll take a look at it. Although Stuart tested my program
on his end and it worked.  So I think it's something specific to my system.
I'll send the program to the client Monday and if it tests OK there then
we're done.

Best,

r

On Sat, May 6, 2023 at 6:45 AM Roberto Ford Long via AccessD <
accessd at databaseadvisors.com> wrote:

> Rocky,
> I know that you are looking for a simple solution.
> Try Home of wput (sourceforge.net) <https://wput.sourceforge.net/>
> It's a small .exe with a lot of command line options and no need to
> install anything.
> A little more complex, but more complete, with all security options,
> output logs...
> In my scenario, I created a one line .bat file with all parameters and
> put all together on work folder...
> And some day if you need to ftp download use wget.
> Best regards from São Paulo, Brasil.
> Roberto.
>
> Em 05/05/2023 18:00, Rocky Smolin escreveu:
> > Stuart Sorry to say - no cigar. But there's a lot of things I could be
> > doing wrong. If it can be done without them having to load and install
> > another program that would be desirable - that's why I chose the windows
> > FTP.exe
> >
> > I'll send you the credentials off line.
> >
> > Thanks again.
> >
> > r
> >
> > On Thu, May 4, 2023 at 4:44 PM Stuart McLachlan<stuart at lexacorp.com.pg>
> > wrote:
> >
> >> Try this replacement function in the  demo sent earlier.
> >>
> >> You need to add another field in usysWeb named WinSCPProg
> >> It should contain something like:
> >> C:\Program Files (x86)\WinSCP\WInSCP.exe
> >>
> >> If it doesn't work, can you email me the crendentials for your PureFTPd
> >> server and I'll try to
> >> work out what is happening.
> >>
> >> Function FTPPut(Directory As String, Filename As String) As Boolean
> >> Const q As String * 1 = """"
> >> Dim strEXE As String
> >> Dim strLocalDir As String
> >> Dim strFName As String
> >> Dim strList As String
> >> If Dir(Filename) = "" Then
> >>     MsgBox Filename & " not found!"
> >>     Exit Function
> >> End If
> >> strLocalDir = Left$(Filename, InStrRev(Filename, "\") - 1)
> >> If Len(strLocalDir) = 2 Then strLocalDir = strLocalDir & "\"
> >> strFName = Mid$(Filename, InStrRev(Filename, "\") + 1)
> >> strList = CurrentProject.Path & "\ftpcmds"
> >> Open strList For Output As #1
> >> Print #1, "open ftp://" & DLookup("Login", "usysWEB") & ":" &
> >> DLookup("PW", "usysWEB") &
> >> "@" & DLookup("Site", "usysWEB")
> >> Print #1, "cd " & Directory
> >> Print #1, "lcd " & strLocalDir
> >> Print #1, "binary"
> >> Print #1, "put " & q & strFName & q
> >> Print #1, "bye "
> >> Close #1
> >> strEXE =  q & DLookup("WinSCPProg", "usysWeb") & q & " /console /ini=nul
> >> /script=" & q &
> >> strList & q
> >> ShellWait strEXE, vbNormalFocus  'vbHide
> >> End Function
> >>
> >> If you want to see what is going on, comment out the Print #1, "bye" and
> >> enter "bye" manually
> >> in the CLI once you have examined what is happening.
> >>
> >>
> >>
> >> On 4 May 2023 at 16:01, Rocky Smolin wrote:
> >>
> >>> Thank you. I have very little hair left.
> >>>
> >>> On Thu, May 4, 2023 at 3:47PM Stuart McLachlan
> >>> <stuart at lexacorp.com.pg>  wrote:
> >>>
> >>>> On 4 May 2023 at 15:22, Rocky Smolin wrote:
> >>>>
> >>>>> Can WINSCP be used inside of an Access program?
> >>>>>
> >>>> Yes, see
> >>>> https://winscp.net/eng/docs/scripting
> >>>>
> >>>> Combine it with the SHellWait code in the FTP demo I sent
> >>>> previously.   :)
> >>>>
> >>>> Actually, given the issues you are having, I think I'll build  a
> >>>> version that uses WinSCP before I run into the same problem in the
> >>>> future.
> >>>>
> >>>> Stand by!
> >>>>
> >>>>
> >>>>
> >>>>
> >>>>
> >>>>
> >>>> --
> >>>> AccessD mailing list
> >>>> AccessD at databaseadvisors.com
> >>>> https://databaseadvisors.com/mailman/listinfo/accessd
> >>>> Website:http://www.databaseadvisors.com
> >>>>
> >>> --
> >>> AccessD mailing list
> >>> AccessD at databaseadvisors.com
> >>> https://databaseadvisors.com/mailman/listinfo/accessd
> >>> Website:http://www.databaseadvisors.com
> >> --
> >> AccessD mailing list
> >> AccessD at databaseadvisors.com
> >> https://databaseadvisors.com/mailman/listinfo/accessd
> >> Website:http://www.databaseadvisors.com
> >>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>