function ZipFolder($dir, $adress)
{
	Write-Host $adress

	$user = Read-Host 'login: '

	$pw = Read-Host 'password: ' -AsSecureString
	$bstr = [System.Runtime.interopServices.Marshal]::SecureStringToBSTR($pw)
	$pwd = [System.Runtime.interopServices.Marshal]::PtrToStringAuto($bstr)

	$ftp = "ftp://$($user):$($pwd)@$($adress)"

	#Write-Host $ftp

	$dest = "$dir.zip"
	if (Test-Path $dest)
	{
		Remove-Item $dest
	}
	Add-Type -assembly "system.io.compression.filesystem"
	[io.compression.zipfile]::CreateFromDirectory($dir, $dest)

	$webclient = New-Object System.Net.WebClient
	$uri = New-Object System.Uri($ftp)
	$webclient.UploadFile($uri, $dest)
	Remove-Item $dest
}