![]() ![]() MsgBox "You have no files on the server", vbCriticalĭoCmd.OpenQuery "Get", acViewNormal, acEdit If DCount("fileuploaded", "uploads") < 1 Then Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalFocusĭoCmd.OpenTable "Uploads", acViewNormal, acReadOnly Rs!TransferPerson = application.currentuser Print #1, "cd MyPersonalServerDirectory" 'DAD'S DIRECTORY Set rs = CurrentDb.OpenRecordset("Uploads", dbOpenDynaset) Below is the upload code and download code I used. Here's a substitute for buying an FTP program that I wrote for, to upload, download and delete files from there personal directories on the server. With Application.FileDialog(msoFileDialogFilePicker)įorms!msgboxOK!Message1.Caption = CStr(varitem) & _ Print #1, "echo Press any key to pick your files to be transferred to the server" Print #1, "USER MYUSERNAMEHERE" ' your login (it wont work this way for others, because my popup for is customize with plenty of code. As the upload takes place and you see the DOS window on screen doing it's magic, there is a box that pops up on top of that even that says something "Wait until it's done, then press OK". At any rate, here is something that will give the user a chance to select as many folders as they want to upload to a server root directory. MY NEEDS FOR THIS THING now have expanded beyond my wildest expectations, but because the people I work for are not interested in buying the "GoToMyPC" thing, I guess we do this instead, through Access no less! Wow.talk about using programs for what they were NOT intended for. Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus Print #1, "put " & vFile ' upload local filename to server file ![]() Open vPath & "\FtpComm.txt" For Output As #fNum Inputbox("Give the file name to upload from your desktop.") VFile = "c:\'documents and settings'\%username%\desktop" & _
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |