|
Wildcard
File Upload
Change the transfer
parameters as appropriate to BINARY, ASCII, RECSIZE, SAVEINF.
For Windows, modify
DOSPRMPT.PIF to use a window. For DOS, use COMMAND.COM in
place of DOSPRMPT.PIF.
The host file name is the PC
file name with the extension truncated. This script assumes
that HOSTF is a legal MPE filename.
;
; Directory of files to select
LET Var1="C:\MS92\"
; File selection
LET Var2="*.S92"
; Maximum number of files to be sent
LET Var3=40
;
SHELL "DOSPRMPT.PIF /C DIR "&Var1&Var2&" /B > tempfile"
CLOSE 1
OPEN tempfile INPUT AS 1 ASCII
LET Var4=0
:L1
READ 1 Var5
IF ((LENGTH(Var5)>2)AND(Var4<Var3))
LET Var6=MID(Var5,1,LENGTH(Var5)-2)
LET Var7=UPPER(MID(Var5,1,FIND(".",Var5)-1))
IF ((MID(Var7,1,1)<"A")OR(MID(Var7,1,1)>"Z"))
LET Var7 = "A" & Var7
ENDIF
IF ( LENGTH ( Var7 ) > 8 )
LET Var7 = MID ( Var7, 1, 8 )
ENDIF
LET Var4=Var4+1
LOCF Var1&Var6
HOSTF Var7
ASCII
RECSIZE 91
UPLOAD
ONTIMER TimeOut
TIMER 15
WAITC 17
GOTO L1
ENDIF
CLOSE 1
STOP
:TimeOut
CLOSE 1
TELL "Host Time-Out occurred..."
END
|
