Ghostscript pdf to jpg - vbs

'

' vbs - Ghostscript pdf to jpg

' converte tutti i file in formato pdf in immagini jpg.

' collocare il programmino nella directory interessata e cliccateci sopra.

' utilizza per la conversione Ghostscript.

' la risoluzione immagige è 600 px: azione = azione & " -r600 "

Option explicit

'

Dim file ' il file da convertire

Dim folder ' la directory corrente

Dim fso ' file system object

dim percorso, azione

dim archivio, archiviojpg, archiviopdf

dim tipo

dim esegui

Set Esegui = CreateObject("WScript.Shell")

'

' Creo il FileSystemObject

Set fso=CreateObject("Scripting.FileSystemObject")

'

' recupero la directory corrente

Set folder=fso.GetFolder(".")

'

' scorro tutti i file corrispondenti

For Each file in folder.Files

' msgbox file.Name

archivio = file.Name

if Len(archivio) > 5 then

tipo = Right(LCase(archivio),4)

if tipo = ".pdf" or tipo = ".PDF" then

percorso = folder & "\" & file.name

archiviopdf = file.name

' msgbox archiviopdf

archiviojpg = LEFT(archiviopdf,LEN(ARCHIVIOPDF)-3)

archiviojpg = archiviojpg & "jpg" ' 32

azione = ""

' path dipendente dalla versione di Ghoscript installata

' azione = azione & ""C:\Program Files (x86)\gs\gs9.07\bin\gswin32"" -dNOPAUSE -sDEVICE=jpeg "

azione = azione & "C:\Programmi\gs\gs8.64\bin\gswin32 -dNOPAUSE -sDEVICE=jpeg "

azione = azione & " -r600 "

azione = azione & " -sOutputFile=" & archiviojpg

azione = azione & " -dBATCH " & archiviopdf

'

Esegui.Run azione, 2, true

'

end if

end if

'

Next

'

'

'msgbox "finito"

'

'*********************************************************