Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need to make backup with FTP
Message
From
16/04/2012 10:19:13
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
16/04/2012 09:50:10
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01541621
Message ID:
01541642
Views:
31
>My apologies. I should have given more details. At least what I can think of
>
>Format of data. Standard DBC no SQL Server
>I want to create an app. that will copy all the data (could be zipped before sending) to an FTP site
>
>Can that be automated?
>
>I want to schedule

Just adjust the code below to create a zip of your own. Then add the code to FTP the zip to wherever you want. You'll have to hardcode the user/pass for the FTP, or store them somewhere in some encrypted format. Build an exe from that and schedule it. If you use an ActiveX for FTP, make sure it's properly installed on the production machine.

If you haven't done FTP from Fox before, it may take some hours before you hit it right (ever FTP client, including the simple API call to some HTTP - check the downloads) has its little tricks that you'll have to find out, so for testing use a small file first, because for each test you'll have to wait for the FTP to finish. Actually, for testing, get the same file back, into a different folder, then compare with original (filetostr("original.zip")==filetostr("sentandretrieved.zip") is a good comparison).

Once it works, schedule it to run in 15 minutes, go take a break, then look at scheduled tasks and see if it ran properly.

>>Here's what I use in one of my fun projects - but run it manually. It can surely be automated. PkZip25.exe can be downloaded from the web, it's the last free version of it. Api_apprun (in process.vcx) is a download from UT.
>>
>>If Not Directory("backup")
>>	Md backup
>>Endif
>>
>>lcZipFile=Transform(Ttoc(Datetime(),1),"@R 9999-99-99~99-99-99")
>>
>>Do closeall In startme     && this just closes all tables in all DSs
>>
>>TEXT textmerge noshow to lcBat
>>pkzip25 -add=update backup\<<lcZipFile>>  data\*.* >zipcp.log
>>ENDTEXT
>>lcbatFile=Fullpath(Forceext(Sys(2015),"bat"))
>>lcThere=Fullpath(".")
>>Strtofile(lcBat, lcbatFile)
>>Local oprocess As api_apprun Of Process.vcx
>>oprocess=Newobject('api_apprun','process', '', lcbatFile, lcThere, 'HID')
>>oprocess.LaunchAppAndWait
>>Release oprocess
>>Erase (lcbatFile)
>>
>>
>>
>>Your other option is to see with their IT stuff to schedule a backup.

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Previous
Reply
Map
View

Click here to load this message in the networking platform