Loading ...
Sorry, an error occurred while loading the content.

6993Re: running program from clip

Expand Messages
  • thefrank
    Aug 5, 2001
    • 0 Attachment
      Hi Don,

      > I want to start ws_ftp with a clip. How?

      This is the clip I use, which is modified slightly from a clip I
      believe Jody built (I may be in error...and if so apologize to
      whoever did the original work...)

      There are 15 lines to the clip, I have numbered them to make it
      easier to unwrap correctly. Of course my line numbers will need to be
      deleted for the clip to work...

      1- ^!SetIniFile NtbUsers
      2- ^!SetWizardTitle *Open* WsFtp or *Transfer* File
      3- ^!SetWizardLabel UP/DOWNLOAD File, Binaries OK, Set Paths...
      4- ^!Set %OpenWsFtp%=^?{=Open WsFtpLE - No Transfer^=1|_Transfer
      File^=0}; %Transfer%=^?{Which direction?=_Upload^=1|Download^=0}; %
      FullPath%=^?{(T=O)Which file=^##}; %ProfileName%=^?{(H=6)Enter WsFtp
      Profile Name==_^$GetValue("WsFtp-ja:PName1")$|^$GetValue("WsFtp-
      ja:PName2")$|^$GetValue("WsFtp-ja:PName3")$|^$GetValue("WsFtp-
      ja:PName4")$|^$GetValue("WsFtp-ja:PName5")$|^$GetValue("WsFtp-
      ja:PName6")$|^$GetValue("WsFtp-ja:PName7")$|^$GetValue("WsFtp-
      ja:PName8")$|^$GetValue("WsFtp-ja:PName9")$|^$GetValue("WsFtp-
      ja:PName10")$}; %ServerPath%=^?{(H=6)Enter server upload path==_^
      $GetValue("WsFtp-ja:SPath1")$|^$GetValue("WsFtp-ja:SPath2")$|^
      $GetValue("WsFtp-ja:SPath3")$|^$GetValue("WsFtp-ja:SPath4")$|^
      $GetValue("WsFtp-ja:SPath5")$|^$GetValue("WsFtp-ja:SPath6")$|^
      $GetValue("WsFtp-ja:SPath7")$|^$GetValue("WsFtp-ja:SPath8")$|^
      $GetValue("WsFtp-ja:SPath9")$|^$GetValue("WsFtp-ja:SPath10")$|^
      $GetValue("WsFtp-ja:SPath11")$|^$GetValue("WsFtp-ja:SPath12")$|^
      $GetValue("WsFtp-ja:SPath13")$|^$GetValue("WsFtp-ja:SPath14")$|^
      $GetValue("WsFtp-ja:SPath15")$|^$GetValue("WsFtp-ja:SPath16")$|^
      $GetValue("WsFtp-ja:SPath17")$|^$GetValue("WsFtp-ja:SPath18")$|^
      $GetValue("WsFtp-ja:SPath19")$|^$GetValue("WsFtp-ja:SPath20")$}
      5- ^!Set %FileName%=^$GetFileName(^%FullPath%)$
      6- ^!IfTrue ^%OpenWsFtp% Next Else Upload
      7- ^!^$GetValue("WsFtp-ja:Ws-Ftp")$
      8- ^!Goto End
      9- :Upload
      10- ^!IfTrue ^%Transfer% Next Else Download
      11- ^!^$GetValue("WsFtp-ja:Ws-Ftp")$ local:^%FullPath% ^%
      ProfileName%:^%ServerPath%^%FileName%
      12- ^!Goto End
      13- :Download
      14- ^!Info ^$GetValue("WsFtp-ja:Ws-Ftp")$ ^%ProfileName%:^%ServerPath%
      ^%FileName% local:^%FullPath%
      15- ^!^$GetValue("WsFtp-ja:Ws-Ftp")$ ^%ProfileName%:^%ServerPath%^%
      FileName% local:^%FullPath%

      I hope this helps,

      Regards,

      tf
    • Show all 4 messages in this topic