
Oggi faremo interagire il notepad con un report contenente le caratteristiche della cartella presa in esame in funzione della directory.
In sostanza dopo aver copiato il codice evidenziato nel blocco note salvandolo con l’estensione .vbs (come negli interventi di questa sezione) e mandato in esecuzione basta leggere le istruzioni per poter procedere all’analisi della cartella a noi interessata.
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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
On Error Resume Next Dim objFSO,objFldr,objFiles,objTS strTitle="http://www.giovannidimauro.it - Controllo Cartelle" strDir=InputBox("Scegli una cartella da esaminare inserendo la Directory…. Come default è stata impostata la cartella di Windows.",_ strTitle,"C:Windows") If strDir="" Then WScript.quit Set objFSO=CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strDir) Then Set objFldr=objFSO.GetFolder(strDir) strFile=GetFileName If strFile="" Then WScript.Quit Else ValidateFile strFile End If Else WScript.Echo "L’archivio della seguente Directory riportata di seguito non esiste " & strDir WScript.Quit End If objTS.WriteLine "Esame per la cartella " & strDir Set objFiles=objFldr.Files i=0 t=objFiles.Count For Each file In objFiles objTS.WriteLine file.Name & vbTab & file.size & " bytes" & vbTab &_ file.DateCreated & vbTab & file.DateLastModified i=i+1 iPer=FormatPercent((i/t)) WScript.StdOut.Writeline(iPer& " Completato") Next objTS.Close MsgBox "Ora vai in Start – Risorse del computer – Disco locale " & strFile & ". Aprendo il file appena generato (Controllo.txt) potrai leggere tutte le informazioni riportate di seguito!",vbOKOnly+vbInformation,strTitle WScript.Quit function GetFileName() On Error Resume Next GetFileName=InputBox("Stai per generare un file di testo per vedere i risultati in esame, se vuoi continuare clicca su OK, oppure clicca su Annulla per interrompere la procedura. " &_ "Il file verrà creato nella seguente directory riportata nella stringa sottostante. ",strTitle,"c:Controllo.txt") End Function Sub ValidateFile(strFile) On Error Resume Next If objFSO.FileExists(strFile) Then rc=MsgBox(strFile & " è già presente. Vuoi " &_ "continuare sostituendo il file generato in precedenza?",vbYesNoCancel+vbQuestion,strTitle) Select Case rc Case vbYes WScript.Echo "Il file è stato generato con successo nella dseguente directory: Start- Risorse del computer – Disco locale " & strFile Err.Clear Set objTS=objFSO.CreateTextFile(strFile,True) If Err.Number<>0 Then strMsg="S’è creato un errore nella creazione degli aventi " &_ strFile & VbCrLf & "Error#" & Err.Number &_ " " & Err.Description MsgBox strMsg,vbOKOnly+vbCritical,strTitle WScript.Quit End If Case vbNo strFile=GetFileName ValidateFile strFile Case vbCancel WScript.Echo "Annulla lo script" WScript.Quit End Select Else Err.Clear Set objTS=objFSO.CreateTextFile(strFile) If Err.Number<>0 Then strMsg="S’è verificato un errore " &_ strFile & VbCrLf & "Error#" & Err.Number &_ " " & Err.Description MsgBox strMsg,vbOKOnly+vbCritical,strTitle WScript.Quit End If End If End Sub |