Sub FTPSendFile(strFile)
    'http://www.ncftp.com/ncftp/doc/ncftpput.html
    Dim sCommand
    Dim iFreeFile01 As Integer
    iFreeFile01 = FreeFile
    sWorkingDirectory = "U:\AWC CVB Web\hdoc\"
    sCommand = "ncftpput -f coni.txt ""/~cvb/hdoc"" """ & strFile & """"
    Open sWorkingDirectory & "awcbalchout.bat" For Output As #iFreeFile01
    Print #iFreeFile01, "cd " & sWorkingDirectory
    Print #iFreeFile01, sCommand
    Close #iFreeFile01
    Shell (sWorkingDirectory & "awcbalchout.bat"), vbNormalFocus   '', vbMinimizedNoFocus
    subPutInClipboard "http://balch.org/~cvb/hdoc/" & strFile

End Sub

Sub SFTP_Filex(strFile, strDestination)
    'http://www.chiark.greenend.org.uk/~sgtatham/putty/download.html
    Dim sApp, sOptions As String
    sApp = "U:\Charile Documents\Program Files\putty - command line SFTP\pscp "
    sOptions = "-p -P 990 -v -pw password -batch -l user -noagent "
    strDestination = "balch.org:" & strDestination
    strAction = sApp & sOptions & strFile & " " & strDestination
    Shell (strAction), vbNormalFocus
    Debug.Print vbCr
    Debug.Print strAction
    'subPutInClipboard ("http://" & strDestination)
End Sub