VBscript – Verificare se un file esiste e stabilire la sua dimensione

Sicuramente è possibile “migliorare” il codice (magari inserendo una sola varibile, ecc.)…ma purtroppo non ho il tempo di farlo.
Ecco un piccolo script per VERIFICARE se un file esiste e se SI….stabilire la sua dimensione :

Option Explicit
DIM fso , strFile, objFSO , objFile

Set fso = CreateObject(“Scripting.FileSystemObject”)

If (fso.FileExists(“C:\list.txt”)) Then

WScript.Echo(“File exists!”)
CONST bytesToKb = 1024

strFile = “C:\list.txt”
SET objFSO = CREATEOBJECT(“Scripting.FileSystemObject”)
SET objFile = objFSO.GetFile(strFile)
wscript.echo “File Size: ” & CINT(objFile.Size / bytesToKb) & “Kb”
WScript.Quit()

Else

WScript.Echo(“File does not exist!”)

End If

WScript.Quit()

Tags : Verificare se un file esiste e stabilire la sua dimensione, verificare se un file esiste, verificare se un file esiste vbs, verificare esistenza file vbs, verificare esistenza file vbscript