
STAMPARE TUTTA LA CARTELLA
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 |