|
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
|
