anchor.diff:      { Server : string
         Request : FtpWebRequest }
   
  -/// Gets a connection to the Ftp server
  -let private getServerInfo (serverNameIp : string) (user : string) (pwd : string) ftpMethod = 
  +/// Gets a connection to the FTP server
  +let getServerInfo (serverNameIp : string) (user : string) (password : string) ftpMethod = 
       let ftpRequest = (WebRequest.Create serverNameIp) :?> FtpWebRequest
  -    ftpRequest.Credentials <- new NetworkCredential(user, pwd)
  +    ftpRequest.Credentials <- new NetworkCredential(user, password)
       ftpRequest.Method <- ftpMethod
       { Server = serverNameIp
         Request = ftpRequest }
  
positive.code:             use reqStrm = si.Request.GetRequestStream()
              writeChunkToReqStream (br.ReadBytes 1024) reqStrm br
  
  /// Given a folder name, will check if that folder is present at a given root directory of a ftp server
  /// ## Parameters
  ///  - `server` - Ftp Server name (ex: "ftp://10.100.200.300:21/")
  ///  - `user` - Ftp Server login name (ex: "joebloggs")
  ///  - `pwd` - Ftp Server login password (ex: "J0Eblogg5")
  let private checkInExistingDirList server user pwd destPath fname = 
      destPath
      |> lastSlashPos
  
negative.code: ﻿/// Contains helpers which allow to upload a whole folder/specific file into a FTP Server. 
  /// Uses `Passive Mode` FTP and handles all files as binary (and not ASCII).
  /// Assumes direct network connectivity to destination FTP server (not via a proxy).
  /// Does not support FTPS and SFTP.
  module Fake.FtpHelper
  
  open System
  