Wildcard File Download
Change the transfer parameters as appropriate to BINARY, ASCII, RECSIZE, SAVEINF.
; ; Destination directory LET Var1="C:\temp\" ; ; File selection LET Var2="F@" ; ; Maximum number of files to be sent LET Var3=40 ; SEND "PURGE FILELIST,TEMP" ONTIMER TimeOut TIMER 15 WAITC 17 SEND "LISTF " & Var2 & ",6 > FILELIST" ONTIMER TimeOut TIMER 15 WAITC 17 LOCF tempfile HOSTF FILELIST,TEMP ASCII DOWNLOAD ONTIMER TimeOut TIMER 15 WAITC 17 CLOSE 1 OPEN tempfile INPUT AS 1 ASCII LET Var4=0 :L1 READ 1 Var5 LET Var6 = LENGTH(Var5)-2 LET Var7 = MID(Var5,1,Var6) DISPLAY Var7 DISPLAY "^M^J" IF ((LENGTH(Var7)>2)AND(Var4<Var3) LET Var8=UPPER(MID(Var7,1,FIND(".",Var7)-1)) LOCF Var1&Var8 HOSTF Var7 ASCII DOWNLOAD LET Var4=Var4+1 GOTO L1 ENDIF CLOSE 1 STOP :TimeOut CLOSE 1 TELL "Host Time-Out occurred..." END