ABCD Folder in a Webserver - ABCD Core Part 6


	Back to ABCD Core Part 6 Comments List

Upload Images @Reply Bookmark Link Email

ABCD Folder in a Webserver

Eduardo Benaim

3 years ago

Richard:
As most people Im very enthusiastic about the ABCDE project. (please publish more)
In my opinion there is only one thing missing. This is:
Your VBA Programming or Script programing to store all documents in a Webserver or web location.
In my team we are 10 and growing. When someone makes a quote, a sale or stores a Document it is saved in the ABCD folder which is Local to each user. Or in a Local NAS.
The true power is to store all these folders and subfolders in One Location. So all of us access the same and there are no duplicates. This is done by splitting the Database and having each user with a local Front End only one Back end in the SQL server. What is missing is the capability to have the Documents and miscellaneous folders in the in the same Location where the SQL server is Located or in a web server.
You have talked about the possibility of opening a public Google Drive (G: Drive) to store these. I dont like this solution because it references one user.
The best option I have seen is the Script you presented in Developer 32-03 FTP File to Webserver. Can this be expanded to create the folders, read the folders, edit the files in the folders etc.
Example: When one stores a Document for a user, it will store it in a Folder created with EntityNumber in the ABCD folder Drive.
Example: C:\Users\eduar\OneDrive\Desktop\ABCD\Data\Entity\10\Documents\220531-0838-Quote.pdf
It would be great if The ABCD Folder could be in a Web server and ABCD would store the login and password to create, store, view, change etc
In other words, Im looking to be able to Specify ABCDFolder in the SystemValueT as a WEBSERVER location. Can you teach us how to do this via scripting or Vba?

Eduardo Benaim OP @Reply

3 years ago

This issue keeps me up at night, so I worked on this.
I tried not to discard Google Drive so Fast.
I was able to define the system File in the G: Drive and it works perfectly for all functions.
The question now is how to give access to other team members to G:\My Drive\ABCD.
Do I need to install the Same G Drive in all users?
Remember ABCD database will be reading and writing in the Entity Folders:
G:\My Drive\ABCD\Data\Entity\430\Documents\TestDocument.pdf

Once Again I need diferent instances of the ABC database reading and writing FILES into the Same G:\My Drive\ABCD\Data\Entity

What is the best way to do this?

	Eduardo Benaim OP @Reply 3 years ago
Working with your script I came up with this code: ' The Call `Private Sub Command17_Click() Dim EntityId As String Dim myDocument As String EntityId = "08" myDocument = "Test.pdf" FTPmyDocument EntityId, myDocument End Sub` The Sub in the Next message

Eduardo Benaim OP @Reply

3 years ago

Public Sub FTPmyDocument(EntityId As String, myDocument As String)

    Dim MYDOCUMENT_FN As String
    Dim SCRIPT_FN As String
    MYDOCUMENT_FN = CurrentProject.Path & "\" & myDocument
    SCRIPT_FN = CurrentProject.Path & "\ftpscript.txt"

    ' create ftp script
    Dim FF
    FF = FreeFile
    Open SCRIPT_FN For Output As #FF
    Print #FF, "open bipinsur.com"
    Print #FF, FTP_USERNAME
    Print #FF, FTP_PASSWORD
    Print #FF, "cd public_html"
    Print #FF, "cd public_html"
    Print #FF, "cd ABCD"
    Print #FF, "cd Data"
    Print #FF, "cd Entity"
    Print #FF, "MkDir " & "" & EntityId & ""
    Print #FF, "cd " & "" & EntityId & ""
    Print #FF, "MkDir Documents"
    Print #FF, "cd Documents"
    Print #FF, "binary"
    Print #FF, "put """ & MYDOCUMENT_FN & """"
    Print #FF, "quit"
    Close #FF

    ' run FTP
    Shell "ftp -s:""" & SCRIPT_FN & """", vbNormalFocus

    End Sub

	Eduardo Benaim OP @Reply 3 years ago
' The next line is used to see the saved Document `MsgBox "Show Me"` ' introduce wait period for Script to run and for FTP Server to Update `Application.FollowHyperlink "http://bipinsur.com/ABCD/Data/Entity/" & EntityId & "/Documents/" & myDocument`

	Eduardo Benaim OP @Reply 3 years ago
The Code above works and was developed based on Richard Rost's Script presented in Developer 32-03 FTP File to Webserver.

	Richard Rost @Reply 3 years ago
I'm glad you figured out a good solution. Personally, I don't see why Google Drive wouldn't work. I use it between all three of my machines just fine. You should be able to set up a shared ABCD folder and give that to everyone. But if you prefer FTP, and it's working, great.

	Eduardo Benaim OP @Reply 3 years ago
Thank you. I was never able to setup a shared google drive. I got the personal and enterprise with no luck. Maybe you can do a Quick Tip video showing the process.

	Eduardo Benaim OP @Reply 3 years ago
Are you back to doing more ABCD videos? We miss you in this area.

	Richard Rost @Reply 3 years ago
Yes, definitely. Been sidetracked on other projects. More coming soon.

This thread is now CLOSED. If you wish to comment, start a NEW discussion in ABCD Core Part 6.