code:

---

if WinHTTPPostRequest("ftp://ftpsite/kdyer/kdyer", "c:\cr.dbf","kdyer","pw")
			?"error occured:" @error
			sleep 2
else
			?"upload complete."
			sleep 2
endif

Function WinHTTPPostRequest($sURL, $sFile, $uid, $pw)
; http://www.pstruh.cz/tips/detpg_post-binary-data-url.htm
  Dim $http ;As New MSXML2.XMLHTTP
  
  ;Create XMLHTTP/ServerXMLHTTP/WinHttprequest object
  ;You can use any of these three objects.
  ;$http = CreateObject("WinHttp.WinHttprequest.5")
  $http = CreateObject("MSXML2.XMLHTTP")
  ;$http = CreateObject("MSXML2.ServerXMLHTTP")
  if @error $WinHTTPPostRequest=1 exit 1 endif
  
  ;Open URL As POST request
  $http.Open("POST", $sURL, not 1, $uid, $pw)
  if @error $WinHTTPPostRequest=2 exit 2 endif
  
  ;Set Content-Type header
  $http.setRequestHeader("Content-Type", "multipart/form-data")
  ;$http.setRequestHeader("Content-Type", "multipart/form-data; boundary=
  ; >> Broken to two lines
  ;---------------------------15124220632234")
  if @error $WinHTTPPostRequest=2 exit 2 endif
  
  ;Send the form data To URL As POST binary request
  $http.send($sFile)
  if @error $WinHTTPPostRequest=3 exit 3 endif
  
  ;Get a result of the script which has received upload
  $WinHTTPPostRequest = $http.responseText
EndFunction

---

code:

---

if FTPPut("ftp://ftpserver/kdyer/kdyer", "c:\cr.dbf","uid","pw")
			?"error occured:" @error
			sleep 2
else
			?"upload complete."
			sleep 2
endif

Function FTPPut($sFile, $sURL, $uid, $pw)
  Dim $oFTP, $oStream
  $oFTP = CreateObject("Microsoft.XMLHTTP")
  if @error $ftpput=1 exit 1 endif
  $oStream = CreateObject("ADODB.Stream")
  if @error $ftpput=2 exit 2 endif
  $oStream.Type = 1
  if @error $ftpput=3 exit 3 endif
  $oStream.Open
  if @error $ftpput=4 exit 4 endif
  $oStream.LoadFromFile($sFile)
  if @error $ftpput=5 exit 5 endif
  $oFTP.Open("put", $sURL, not 1, $uid, $pw)
  if @error $ftpput=6 exit 6 endif
  ;$oFTP.Send
  ;$oStream.setRequestHeader("Content-type", "image/jpeg")
  ;if @error $ftpput=5 exit 5 endif
  $oFTP.Send($oStream.Read)
  ;$oStream.Mode = 3
  ;$oStream.open
  ;$oStream.Write($oFTP.responseBody)
  ;$oStream.SaveToFile($sFile, 2)
  if @error $ftpput=5 exit 5 endif
  $oStream.Close
EndFunction

---

code:

---

break on
;ref - http://cwashington.netreach.net/depo/view.asp?Index=622&ScriptType=vbscript

$filename = "c:\cr.dbf"

$oFS = CreateObject("Scripting.FileSystemObject")
$File = $oFS.OpenTextFile($filename, 1, not 1, 0)

$Buffer = $File.Read(4)

$String = cbyte(asc($Buffer))

decimalToBinary($String)

Function decimalToBinary($intDecimal)
    $strBinary = ""
    $intDecimal = cInt($intDecimal)
    While ($intDecimal > 1)
        $lngNumber1 = $intDecimal / 2
        $lngNumber2 = Fix($lngNumber1)
        If ($lngNumber1 > $lngNumber2)
            $strDigit = "1"
        Else
            $strDigit = "0"
        EndIf
        $strBinary = $strDigit + $strBinary
        $intDecimal = Fix($intDecimal / 2)
    Loop
    $strBinary = "1" & $strBinary
    While Len($strBinary) < 8
         $strBinary = "0" + $strBinary
    Loop
    $binString = $strBinary
EndFunction

---

code:

---

 BREAK ON
 CLS
 ; Ref - http://www.geocities.co.jp/SiliconValley/4805/vbtips/vbtips103.htm
FtpPut("ftp://ftpserver","kdyer","pw","ftp://ftpserver/kdyer/kdyer/test.jpg","c:\untitled1.jpg")
 FUNCTION FtpPut($strftpsvr, $struserid, $strpassword, $strremotefile, $strlocalfile)
       DIM $hinternet
       DIM $hftp
       DIM $lngret
       DIM $strerrtext

       $ftpput = True

       IF @Error <> 0
       GOTO ErrHandler
       ENDIF

       ;INTERNET_OPEN_TYPE_PRECONFIG = 0&
       $hinternet = InternetOpen("",0&,"","",0&)
       IF $hinternet = 0
             $strerrtext = "InternetOpen:GetLastError=" + $err.lastdllerror()
             MESSAGEBOX ($strerrtext, $app.title + "<FtpPut>", 0)
             $ftpput = NOT 1
             RETURN
       ENDIF

       ;INTERNET_DEFAULT_FTP_PORT = 21&
       ;INTERNET_SERVICE_FTP = 1&
       $hftp = InternetConnect($hinternet, _
       $strftpsvr, _
       21&, _
       $struserid, _
       $strpassword, _
       1&, _
       0&, _
       0&)
       IF $hftp = 0
             $strerrtext = "InternetConnect:GetLastError=" + $err.lastdllerror()
             MESSAGEBOX($strerrtext, $app.title + "<FtpPut>", 0)
             $ftpput = NOT 1
             RETURN
       ENDIF

       ;FTP_TRANSFER_TYPE_BINARY = &H2&
       $lngret = FtpPutFile($hftp, _
       $strlocalfile, _
       $strremotefile, _
       &H2&, _
       0&)
       $lngret = InternetCloseHandle($hftp)
       $lngret = InternetCloseHandle($hinternet)
       RETURN
       :ErrHandler
       $ftpput = NOT 1
       MESSAGEBOX( "<" + $err + ">" + Error($err), $app.title + "<FtpPut>", 0 )
 ENDFUNCTION

 ;-------------------------------------------------------
 ; Module
 ;-------------------------------------------------------
 ;constants
 ;INTERNET_OPEN_TYPE_PRECONFIG = 0&
 ;INTERNET_OPEN_TYPE_DIRECT = 1&
 ;INTERNET_OPEN_TYPE_PROXY = 3&
 ;INTERNET_DEFAULT_FTP_PORT = 21&
 ;INTERNET_DEFAULT_HTTP_PORT = 80&
 ;INTERNET_DEFAULT_HTTPS_PORT = 443&
 ;INTERNET_SERVICE_FTP As = 1&
 ;INTERNET_SERVICE_HTTP = 3&
 ;INTERNET_FLAG_PASSIVE = &H8000000
 ;INTERNET_FLAG_RELOAD = &H80000000
 ;FTP_TRANSFER_TYPE_ASCII = &H1&
 ;FTP_TRANSFER_TYPE_BINARY = &H2&

 ;API??

 FUNCTION InternetOpen(Add($lpszAgent,"WinInet.DLL"),Add($dwAccessType,"WinInet.DLL"),
Add($lpszProxyName,"WinInet.DLL"),Add($lpszProxyBypass,"WinInet.DLL"0,Add($dwFlags,"WinInet.DLL")
;       ;$inetopcstr = "wininet.dll"
;       ;$inetopcstr = $inetopcstr + "InternetOpenA" + chr(40)
;       $inetopcstr = $inetopcstr + Add($lpszAgent,"WinInet.DLL") + chr(44)
;       $inetopcstr = $inetopcstr + Add($dwAccessType,"WinInet.DLL") + chr(44)
;       $inetopcstr = $inetopcstr + Add($lpszProxyName,"WinInet.DLL") + chr(44)
;       $inetopcstr = $inetopcstr + Add($lpszProxyBypass,"WinInet.DLL") + chr(44)
;       $inetopcstr = $inetopcstr + Add($dwFlags,"WinInet.DLL")
 ENDFUNCTION

 FUNCTION InternetConnect($inetcstr)
       $inetcstr = "WinInet.DLL"
       $inetcstr = $inetcstr + "InternetConnectA" + chr(40)
       $inetcstr = $inetcstr + Add($hInternetSession,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($lpszServerName,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($nServerPort,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($lpszUserName,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($lpszPassword,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($dwService,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($dwFlags,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($dwContext,"WinInet.DLL") + chr(41)
 ENDFUNCTION

 FUNCTION FtpPutFile($inetftpput)
       $inetftpput = "wininet.dll"
       $inetftpput = $inetftpput + "FtpPutFileA" + chr(40)
       $inetftpput = $inetftpput + Add($hFtpSession,"WinInet.DLL") + chr(44)
       $inetftpput = $inetftpput + Add($lpszLocalFile,"WinInet.DLL") + chr(44)
       $inetftpput = $inetftpput + Add($lpszNewRemoteFile,"WinInet.DLL") + chr(44)
       $inetftpput = $inetftpput + Add($dwFlags,"WinInet.DLL") + chr(44)
       $inetftpput = $inetftpput + Add($dwContext,"WinInet.DLL") + chr(41)
 ENDFUNCTION

 FUNCTION InternetCloseHandle($inetclose)
       $inetclose = "wininet.dll"
       $inetclose = $inetclose + Add($hInternetSession,"WinInet.DLL") + chr(41)
 ENDFUNCTION

 ; - Function Add is from Shawn Tassie since byval is not supported by KiX
 ; - ref - http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=13;t=000017
 FUNCTION Add($var1,$var2byref)
       ;
       ; Add Var1 to Var2 (byref) and put result back into Var2 (byref)
       ;
       $ = Execute("$Var2ByRef = $Var1 + $Var2ByRef") ; do it
 ENDFUNCTION
  

---

code:

---

break on

$file = "C:\AspEmail.dll"

ToBin($file)

Function StrConvert($vBin)
    $oConv = CreateObject("ADODB.Stream")
    $oConv.Charset = "utf-8"
    $oConv.Type = 1 ;binary
    $oConv.Open
    $oConv.Write($vBin)
    $oConv.Position = 0
    $oConv.Type = 2 ;Text
    $oConv.Charset = "Windows-1252" ;optionally
    $StrConvert = $oConv.ReadText()
EndFunction
  

---

code:

---

Function ToBin($sString)
    $oConv = CreateObject("ADODB.Stream")
    $oConv.Charset = "Windows-1252"
    $oConv.Type = 2 ; text
    $oConv.Open
    $oConv.WriteText($sString)
    $oConv.Position = 0
    $oConv.Type = 1 ;binary
    ;$oConv.Charset = "utf-8" ;optionally
    $ToBin = $oConv.Read()
EndFunction
  

---

Working, please help yourself.

Kent

quote:

---

Important The FTP protocol uses a single string that includes the =
operation name and any other parameters needed by the operation. In =
other words, the data and requestHeaders arguments are not used; all of =
the operations and their parameters are passed as a single string in the =
operation argument. Parameters are separated by a space. In the =
descriptions below, do not confuse the terms "file1" and "file2" with =
the data and requestHeaders arguments.

The syntax for FTP operations is:

operationName file1 file2.

For example, to get a file, the following code invokes the Execute =
method, which includes the operation name ("GET"), and the two file =
names required by the operation:

Inet1.Execute "FTP://ftp.microsoft.com", _
"GET Disclaimer.txt C:\Temp\Disclaimer.txt"
Note File names that include embedded spaces are not supported.

---