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