home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / utilities / comsuite 95 / COMMSUIT / ZMUPLOAD.DB_ / ZMUPLOAD.DB
Encoding:
Text File  |  1995-11-19  |  860 b   |  45 lines
  1. REM Uploads Files Dropped on a connected Session
  2. REM This program Zmupload.dbs created by Delrina Corp., handles files that are drag and 
  3. REM dropped from Explorer or a Folder and sends them using the Zmodem  protocol to the remote system.
  4. REM Author C.L.A. Mandeville
  5.  
  6. REM Revision:   7.0  
  7. REM Date:   17 Oct 1995 13:06:00 
  8.  
  9. Sub Main
  10.  
  11.     Dim Sess As New Session
  12.      Dim Trans AS transfer
  13.     Dim CNT As Integer
  14.     Dim Drop_File$ As String
  15.     Dim Final_Stat As Integer
  16.  
  17.     Set Trans = Sess.Transfer
  18.     CNT = 0
  19.     Trans.sendProtocol=DC_ZMODEM
  20.  
  21.     Do
  22.         Drop_File$=Trans.GetDropList(CNT)
  23.         If Drop_File$ <> "" then
  24.              CNT = CNT+1
  25.         End if
  26.  
  27.     Loop Until Drop_File$ = ""
  28.  
  29.     Trans.DropSend TRUE
  30.     
  31.     Final_Stat = Trans.finalStatus
  32.  
  33.     if Final_Stat <> 0 then
  34.  
  35.         goto END_SCRPT
  36.  
  37.     end if
  38.     
  39.     Trans.ClearDropList
  40.  
  41. END_SCRPT:
  42.  
  43. End Sub
  44.  
  45.