Simple Zip and FTP Upload Script

[NobodyWannabe]

expandcollapse popup

#include <FTPEx.au3>


;Online Backup
$source = '"C:BackupsDirectory*"'          ;Source directory to backup
$7Zfile = "C:BackupsDirectoryFileName.7z"  ;Backup file name
$pw     = "-p12345 -mhe"                      ;7-Zip Password (7z file will be password protected with 12345)

FileDelete($7Zfile)
sleep(500)

;Change "C:Apps" to where 7-Zip is installed
Run("C:Apps7-Zip7zG a " & $7Zfile & "  " & $pw & " " & $source)



;Upload Backup to Server
ProcessWaitClose("7zG.exe")

$server   = 'ftp.server.com' ;FTP Server
$username = 'username'       ;FTP Username
$pass     = 'password'       ;FTP Password

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass,0,1,0x08000000)

 ;Hard drive source file and server directory (change to suit)
$Ftpp = _FtpPutFile($Conn,"C:BackupsDirectoryFileName.7z", '/FileName.7z' , 0x08000000)


Func _FTPConnect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_ServerPort = 0, $l_Service = 1, $l_Flags = 0, $l_Context = 0)

    Local $ai_InternetConnect = DllCall('wininet.dll', 'long', 'InternetConnect', 'long', $l_InternetSession, 'str', $s_ServerName, 'int', $i_ServerPort, 'str', $s_Username, 'str', $s_Password, 'long', $l_Service, 'long', $l_Flags, 'long', $l_Context)
    If @error OR $ai_InternetConnect[0] = 0 Then
        SetError(-1)
        Return 0
    EndIf

    Return $ai_InternetConnect[0]

EndFunc
Func _FtpPutFile($l_FTPSession, $s_LocalFile, $s_RemoteFile, $l_Flags = 0, $l_Context = 0)

    Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpPutFile', 'long', $l_FTPSession, 'str', $s_LocalFile, 'str', $s_RemoteFile, 'long', $l_Flags, 'long', $l_Context)
    If @error OR $ai_FTPPutFile[0] = 0 Then
        SetError(-1)
        Return 0
    EndIf

    Return $ai_FTPPutFile[0]

EndFunc

Edited October 23, 2012 by Melba23
Added code tags

[llewxam]

When posting code please use a code tag, it makes it much easier to glance at a sample like yours without having to copy it in to SciTE. To do this, please use BRACKETAutoitCLOSEBRACKET before the code, and BRACKET/AutoitCLOSEBRACKET after the code. And of course by BRACKET I mean [ and ].

Ian

[Elgar]

This is almost exactly what I need and I've tested it out and got as far as the zip file being created.

Since I'm getting stuck at the start of the FTP part, I assume I need to modify the items that appear in red in the following lines, but I'm not sure what they mean. Could you please comment on what these items are? It seems to me that some of these are defined already so clearly I have a lot to learn!

$Open = _FTP_Open('MyFTP Control') ; MyFTP Control = ?????

Local $ai_InternetConnect = DllCall('wininet.dll', 'long', 'InternetConnect', 'long', $l_InternetSession, 'str', $s_ServerName, 'int', $i_ServerPort, 'str', $s_Username, 'str', $s_Password, 'long', $l_Service, 'long', $l_Flags, 'long', $l_Context)
; need to modify these for my connection/server, or already defined?

Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpPutFile', 'long', $l_FTPSession, 'str', $s_LocalFile, 'str', $s_RemoteFile, 'long', $l_Flags, 'long', $l_Context)
; need to modify these for my connection/server, or already defined?

Also, I'd like to be able to zip the currently selected file/files/folder rather than a pre-defined file (i.e, I'd like to put this into the right-click menu, as my use is not as a backup but as a distribution to different FTP folders, hence the need for at least one manual step).

Any suggestions as to where/how to modify your code to do this?

thanks for any and all help!

[Elgar]

sorry, forget the first part - figured it out and tweaked things bit, have managed to make the FTP connection and upload was successful.

Now I'm just wondering about using it on single or multiple selected file(s)/folder(s) for individual uploads to FTP.