STAMPARE TUTTA LA CARTELLA
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…
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…
Codice:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
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 |
