OPENING MULTIPLE PDF FILES

[tonyappl]

Hi ,

Is it possible to open the following pdf file with one click at the same time.

000196.pdf
000196-v1.pdf
000196-v2.pdf
000196-v3.pdf

I can open one file with this script but mas only send first seven digits. Is there a way to substitute _v1 ,_v2 etc.

file://192.168.1.225\F\Sage\405\MAS90\SCANNEDFILES\Picksheet/{stp(ML_INV$)}.pdf

thanks

Tony

 

[dfeller]

Did you try this:

file://192.168.1.225\F\Sage\405\MAS90\SCANNEDFILES\Picksheet/{stp(ML_INV$)}_v1.pdf

file://192.168.1.225\F\Sage\405\MAS90\SCANNEDFILES\Picksheet/{stp(ML_INV$)}_v2.pdf

file://192.168.1.225\F\Sage\405\MAS90\SCANNEDFILES\Picksheet/{stp(ML_INV$)}_v3.pdf

Dawn

 

[tonyappl]

yes I tried it in link, in script folder ,it only opens first line

 

[dfeller]

I would do this in a VBScript.

Dawn

 

[tonyappl]

I could do this with jpeg files but not with pdf . Thanks for any help




' language VBScript
'
' form variables
' ML_ITEM_NO
'
' system variables
' MAS_SCR_CMP : company code [XXX]
' MAS_SCR_USR : user code [XXX]
' MAS_SCR_MOD : module code [X/X]
' MAS_SCR_DTE : current app date [MMDDYYYY]
' MAS_SCR_LIB : library [..\xx\xxxxxx.LIB]
' MAS_SCR_PNL : panel [PNL_xxxxxxx]
' MAS_SCR_OBJ : control [BT_LINK_x]
' MAS_SCR_CS : 1 if running MAS 200 on client
' MAS_SCR_DBG : 1 to show script before execution
'
ImageFolder="\\MASERVER\f\sage\405\MAS90\SCANNEDFILES\invoice\"
'
count=0
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Folder=fso.GetFolder(ImageFolder)
Set Files=Folder.Files
For Each F In Files
If Left(F.Name,Len(Trim(ml_inv_num)))=Trim(ml_inv_num) Then
html=html+"<tr><td align=top><font face=Arial>"
'html=html+F.Name
html=html+"</font></td><td>"
html=html+"<img src=file://"+ImageFolder+"/"+F.name+" height=1100 width=900>"
html=html+"</td></tr>"
count=count+1
End If
Next
Set Files=Nothing
Set Folder=Nothing
Set Fso=Nothing
'
' Finish out HTML
header="<div align=center>"
header=header+"<font face=Arial Size=4><b>"
header=header+"Item Images for "+ml_inv_num
header=header+"</b></font><b><table>"
'
footer="</table><font face=arial>"
footer=footer+CStr(Count)+" images listed"
footer=footer+"</font>"
'
html=header+html+footer
'
Set ie=CreateObject("InternetExplorer.Application")
ie.Navigate "About:Scanned_files_from_Mas_200"
ie.Document.body.innerhtml=html
ie.Visible=True