Stampare tutti i files contentuti in una cartella tramite vbs

vbs stampare files 150x150 Stampare tutti i files contentuti in una cartella tramite vbs

Apri il blocco note (Start – Tutti i programmi – Accessori – Blocco note) copia nel suo interno il codice riportato in grassetto e salva con nome aggiungendo l’estensione .vbs

Es.: col blocco note aperto clicca su file – salva con nome – poi va sotto in salva come e metti tutti i file e successivamente in nome file metti Elenco files.vbs
Una volta aperto il file, devi mettere una directory nella finestra di dialogo, per esempio metti c:document and setting e poi clicca su ok.
Successivamente verrà creata una pagina in html (una pagina di internet) con l’elenco completo di tutte le cartelle scritte in grassetto (grazie all’ausilio dei tag html) e di tutti i files in esse contenute….. 😀 ma non finisce qui…. infatti dopo che si è creato l’elenco appare un’altra finestra di dialogo che dice se vuoi stampare l’elenco oppure no…

Cartella = InputBox("Nome cartella, ad esempio C:Documents and SettingsAll UsersDesktop")
If Cartella = "" Then Cartella = "C:"
set ie4=CreateObject("InternetExplorer.Application")
ie4.navigate ("about:blank"): ie4.visible=1
set FSys=CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSys.GetFolder(Cartella)
ie4.document.body.innerHTML="<p id='idOutput'>"
SubFolders TheFolder, FiltroFile
YesNo=MsgBox("Stampa?", vbYesNo)
If YesNo = vbYes Then ie4.ExecWB 6, 2
set ie4=nothing: set fSys=nothing
Sub SubFolders(ByVal AFolder, TheExtension)
strOut="<b>" & AFolder & "</b><br>"
ie4.document.all.idOutput.insertAdjacentHTML "BeforeEnd", strOut
ShowFilesWithExtensionIn AFolder, TheExtension
Set MoreFolders = AFolder.SubFolders
For Each TempFolder In MoreFolders
SubFolders TempFolder, TheExtension
Next
End Sub
Sub ShowFilesWithExtensionIn(AFolder,TheExtension)
'Dim AFile, TheFiles,s, header
header="<H1>" & folderspec & "</H1> <p>"
Set TheFiles = AFolder.Files
For Each AFile In TheFiles
s=AFile.Name
s = s & "<br>"
ie4.document.all.idOutput.insertAdjacentHTML "BeforeEnd", s
Next
End Sub

Cartella = InputBox("Nome cartella, ad esempio C:Documents and SettingsAll UsersDesktop")

If Cartella = "" Then Cartella = "C:"

set ie4=CreateObject("InternetExplorer.Application")

ie4.navigate ("about:blank"): ie4.visible=1

set FSys=CreateObject("Scripting.FileSystemObject")

Set TheFolder = FSys.GetFolder(Cartella)

ie4.document.body.innerHTML="<p id='idOutput'>"

SubFolders TheFolder, FiltroFile

YesNo=MsgBox("Stampa?", vbYesNo)

If YesNo = vbYes Then ie4.ExecWB 6, 2

set ie4=nothing: set fSys=nothing

Sub SubFolders(ByVal AFolder, TheExtension)

strOut="<b>" & AFolder & "</b><br>"

ie4.document.all.idOutput.insertAdjacentHTML "BeforeEnd", strOut

ShowFilesWithExtensionIn AFolder, TheExtension

Set MoreFolders = AFolder.SubFolders

For Each TempFolder In MoreFolders

SubFolders TempFolder, TheExtension

End Sub

Sub ShowFilesWithExtensionIn(AFolder,TheExtension)

'Dim AFile, TheFiles,s, header

header="<H1>" & folderspec & "</H1> <p>"

Set TheFiles = AFolder.Files

For Each AFile In TheFiles

s=AFile.Name

s = s & "<br>"

ie4.document.all.idOutput.insertAdjacentHTML "BeforeEnd", s

End Sub

DOWNLOAD

Stampare tutti i files contentuti in una cartella tramite vbs Ultima modifica: 2016-03-17T15:27:04+01:00 da Giovanni

Articoli Correlati