ESEGUIRE UN CONTROLLO ALLE CARTELLE TRAMITE SCRIPT VBS E OTTENERE INFORMAZIONI
Oggi faremo interagire il notepad con un report contenente le caratteristiche di una cartella.
All’apertura dello script si deve inserire il percorso della cartella, il path, la directory.
Come impostazione predefinita il percorso impostato e C:\Windows
basta cambiarlo.
Dopo aver copiato il codice evidenziato nel blocco note salvandolo con l’estensione .vbs oppure dopo aver fatto il download basta eseguire il file.
Leggi le istruzioni a schermo.
NB: il download potrebbe essere bloccato dal browser ma non preoccuparti, il file è sicuro.
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 |
On Error Resume Next Dim objFSO,objFldr,objFiles,objTS strTitle="Controllo Cartelle - https://www.giovannidimauro.it" strDir=InputBox("Scegli una cartella da esaminare inserendo la Directory (percorso, es. D:\Musica). In 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 & Round(file.size/1024/1024,3) & " MB" & vbTab & "Data di creazione " & file.DateCreated & vbTab & "Ultima modifica " & 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,"D:\controllo-cartelle.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="Si è verificato un errore " & strFile & VbCrLf & "Error#" & Err.Number & " " & Err.Description MsgBox strMsg,vbOKOnly+vbCritical,strTitle WScript.Quit End If End If End Sub |
