Paso 4: Vaciar ~ comprueba si un archivo no contiene datos
Ahora en VBScript!
--POR LOTES--
de ¿Si "%1" == "/"? ( llamar: isEmpty %1 Si (errorlevel 2 : isEmpty
setlocal
echo.
Eco vacío "filepath"
echo.
endlocal
salida/b
)
echo el fichero no existe.
) else if errorlevel 1 (
echo el fichero no está vacío.
) () otro
echo el archivo está vacío.
)
echo.
GOTO: eof
Si no existen "% ~ 1" salida/b 2
conjunto "tamaño = % ~ z1"
echo el tamaño del archivo es % tamaño
Si % tamaño % gtr 0 (salida/b 1) otra salida/b 0
--VBSCRIPT--
' Comprobar si se ha ejecutado correctamente.
Si wscript.fullname = "C:\Windows\System32\wscript.exe" then
Wscript.echo "por favor utilice""cscript /nologo alarm.vbs [parámetros]" "para invocar este script."
Wscript.Quit
terminar si
Set fso = createobject("Scripting.FileSystemObject") ' acceder a archivos en el equipo. ' Comprobar archivos no existentes y falta de argumentos. ' Determinar el tamaño de archivo, y si está vacía. función usage(errorlevel)
Si wscript.arguments.count = 0 then
Usage(1)
else if fso.fileexists(wscript.arguments.item(0)) entonces
Usage(2)
else if wscript.arguments.item(0) = "¿/?" entonces
Usage(0)
terminar si
terminar si
terminar si
sfile = wscript.arguments.item(0)
Set ofile = fso.getfile(sfile)
tamaño = ofile.size
Si tamaño = 0 entonces
Wscript.echo "el archivo está vacío".
otra cosa
Wscript.echo "el archivo no está vacíelo."
terminar si
Wscript.echo "el tamaño del archivo es" & tamaño
Wscript.echo
Wscript.echo "determinar si un archivo está vacío y visualiza el tamaño (en bytes).
Wscript.echo
Wscript.echo "uso:"
Wscript.echo "cscript /nologo empty.vbs"ruta del archivo del"" ""
Wscript.echo
Wscript.Quit(ERRORLEVEL)
función final
Una vez más, se utiliza como cualquier otro comando.
¿Tipo en vacío /? hacer llegar el mensaje de ayuda.