Controllo Cartelle

Oggi faremo interagire il notepad con un report contenente le caratteristiche della cartella in esame a secondo della directory!
In sostanza dopo aver copiato il codice nel blocco note salvandolo con la solita estenzione .vbs (come gli interventi riportati in precedenza), una volta mandato in esecuzione basta leggere le istruzioni per poter procedere all'analisi della cartella che scegliamo in oggetto!

On Error Resume Next
Dim objFSO,objFldr,objFiles,objTS
strTitle="File Demo"
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
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento