Vbscript – Verifica se un file esiste su disco – vbs

Il seguente codice, in Vbscript, verifica se un file esiste su disco. In caso di esistenza ne misura anche la dimensione.

[php]

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()

[/php]

questa potrebbe essere una versione semplificata:

[php]
On Error Resume Next
Dim Drive, OggFile, origine, destinazione
origine="c:\1.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
set OggFile = fso.GetFile (origine)
if fso.FileExists (origine) then
wscript.echo "Esiste già un file nella cartella prova."
Else
wscript.echo "ciao."
End if
[/php]

Altri script in VbScript che potrebbero interessarti :

Vbscript Verifica se un file esiste su disco, Vbscript  verifica esistenza file, controllare se file esiste su disco, controllo esiste file Vbscript, vbs controlla se file esiste, controllo file su disco