sconponi split pdf - vbs

'

' drag e drop

'

' estre e crea un file pdf per ogni pagina di un documento.

' utilizza Pdf Split and Merge

' scaricabile da: http://sourceforge.net/projects/pdfsam/

'

Option Explicit

'

dim objArgs, I

'

Set objArgs = WScript.Arguments 'Verifica esistenza presenza argomenti passati allo script

if objargs.count=0 then ' conteggio elementi

msgbox "Trascinare un file sul programma per visualizzarlo", vbinformation+vbokonly, Title

wscript.quit

end if

'

dim archivio, objFile, esegui, programma, attesa

Dim strTmp, objShell

'

set objShell = WScript.CreateObject("Wscript.Shell")

'

For I = 0 to objArgs.Count - 1

archivio = objArgs(I)

strTmp = "java -jar C:\Programmi\pdfsam\lib\pdfsam-console-0.5.2.jar -f " & archivio & " -p pdfsam_ -s BURST -o C:\provep\s2 split"

attesa = objShell.Run (strTmp, 1, True)

Next

'

Set objShell = Nothing '

' *****