[AccessD] I ask Bard to write an FTP upload module

[Steve Erbach]

John,

Well, according to some historical data on the US Chess web site (from
2004), 1800 puts you in the 93 percentile... so not too shabby.


On Tue, Apr 25, 2023 at 11:47 AM John Colby <jwcolby at gmail.com> wrote:

> I had a chess game, complete with a physical electronic board.  It was
> pretty good, though I was never better than about an 1800 or thereabouts so
> my concept of 'pretty good' is relative.  I also played an game on my
> computer.
>
> On Tue, Apr 25, 2023 at 11:45 AM Rocky Smolin <rockysmolin2 at gmail.com>
> wrote:
>
> > I think writing code will be the next Holy Grail of AI.  Time was that it
> > was the chess program problem. Then in the 1980s (if memory serves -
> which
> > it does about 1/2 the time now)Dan and Kathy Spracklin wrote Sargon II to
> > run on an 8080 DOS box, and blew the chess world out of the water.
> >
> > r
> >
> > On Tue, Apr 25, 2023 at 8:35 AM Arthur Fuller <fuller.artful at gmail.com>
> > wrote:
> >
> > > Look at the upside.  There is  still a need for us carbon units.
> > >
> > > On Tue., Apr. 25, 2023, 11:27 a.m. Rocky Smolin, <
> rockysmolin2 at gmail.com
> > >
> > > wrote:
> > >
> > > > I got a popup in Edge - Bear is ready to write code for me.  So I
> > > > thought I'd give it a try with the FTP Upload program I'm trying to
> > > write.
> > > > Said "write a module in VBA to FTP a file to a server"
> > > >
> > > > Below is the original code and my modifications to pick up the
> > arguments
> > > > from a table.
> > > >
> > > > It errors out on the line  Set oFTP = CreateObject("FSO.Ftp") 429 -
> > > ActiveX
> > > > component cannot create object.
> > > >
> > > > The code looks pretty simple, straightforward. Is there a simple,
> > > > straightforward fix for this?
> > > >
> > > > MTIA
> > > >
> > > > Rocky
> > > >
> > > >
> > > > Here's the code that Bard created:
> > > >
> > > > ' Original Code
> > > > 'Declare variables
> > > > 'Dim oFSO As Object
> > > > 'Dim oFTP As Object
> > > > 'Dim strServer As String
> > > > 'Dim strUserName As String
> > > > 'Dim strPassword As String
> > > > 'Dim strLocalFile As String
> > > > 'Dim strRemoteFile As String
> > > >
> > > > 'Set variables
> > > > 'strServer = "myserver.example.com"
> > > > 'strUserName = "username"
> > > > 'strPassword = "password"
> > > > 'strLocalFile = "C:\Users\YourUserName\Desktop\myfile.txt"
> > > > 'strRemoteFile = "/myfolder/myfile.txt"
> > > >
> > > > 'Create an instance of the FileSystemObject
> > > > 'Set oFSO = CreateObject("Scripting.FileSystemObject")
> > > >
> > > > 'Create an instance of the FTP object
> > > > 'Set oFTP = CreateObject("FSO.Ftp")
> > > >
> > > > 'Open a connection to the FTP server
> > > > 'oFTP.Open strServer, strUserName, strPassword
> > > >
> > > > 'Upload the file
> > > > 'oFTP.PutFile strLocalFile, strRemoteFile
> > > >
> > > > 'Close the connection
> > > > 'oFTP.Close
> > > >
> > > > And here's the code I modified to pick up the arguments from a table:
> > > >
> > > > 'Dim oFSO As Object
> > > > 'Dim oFTP As Object
> > > > 'Dim strServer As String
> > > > 'Dim strUserName As String
> > > > 'Dim strPassword As String
> > > > 'Dim strLocalFile As String
> > > > 'Dim strRemoteFile As String
> > > >
> > > > 'Set variables
> > > > 'strServer = Me.fldHost
> > > > 'strUserName = Me.fldUser
> > > > 'strPassword = Me.fldPassword
> > > > 'strLocalFile = Me.fldFileToUpload
> > > > 'strRemoteFile = Me.fldDestinationDirectory &
> Me.fldDestinationFileName
> > > >
> > > > 'Create an instance of the FileSystemObject
> > > > 'Set oFSO = CreateObject("Scripting.FileSystemObject") '
> > > >
> > > > 'Create an instance of the FTP object
> > > > 'Set oFTP = CreateObject("FSO.Ftp")
> > > >
> > > > 'Open a connection to the FTP server
> > > > 'oFSO.Open strServer, strUserName, strPassword
> > > >
> > > > 'Upload the file
> > > > 'oFTP.PutFile strLocalFile, strRemoteFile
> > > >
> > > > 'Close the connection
> > > > 'oFTP.Close
> > > > --
> > > > 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
> >
>
>
> --
> John W. Colby
> Colby Consulting
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


-- 
Regards,

Steve Erbach
Manitowoc, WI