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.
Codice
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
