Hopefully "ScriptingTipsAndTricks" helps you with your batch file or vbscript scripting :-)
[Bottom][Contents][Prev]: FOR Loops - for x = 1 to 10[Next]: HandleTrickyCharactersLikeGreaterThanAndAmpersands.cmd -
\->Batch Files->GetFreeBytes.cmd.txt -

[anchor]

The Code for: "GetFreeBytes.cmd.txt"

This is the example, a shortcut was installed to this code :

::@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
:: $Header:   C:/DBAREIS/Projects.PVCS/Win32/ScriptingTipsAndTricks/EXAMPLE[cmd].GetFreeBytes.cmd.txt.pvcs   1.0   29 Jun 2014 12:51:20   USER "Dennis"  $
::@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


:: call :GetFreeBytes "F:\Some\Directory"
:: echo [%date% %time%] Have %FreeMB% MB free on report drive
:: set PruneDayInc=0
:: if "%FreeMB%" == "?" goto JustPrune35


    :: ++++++++++++++++++++++++++ v11.187
    :GetFreeBytes
    :: ++++++++++++++++++++++++++
         set    TheDir=%~1
         set FreeBytes=?
         set    FreeMB=?
         for /f "tokens=2 delims=)" %%f in ('dir "%TheDir%" ^| find.exe "bytes free"') do set FreeBytes=%%f
         if "%FreeBytes%" == "?" goto :EOF
         set FreeBytes=%FreeBytes:bytes free=%
         set FreeBytes=%FreeBytes: =%
         set FreeBytes=%FreeBytes:,=%
         @rem THANKS MS FOR FAILING AGAIN: set /A FreeMB=FreeBytes / 1000000
         set FreeMB=%FreeBytes:~0,-6%
         if "%FreeMB%" == "" set FreeMB=0
         goto :EOF

Please note that that I am not trying to show how great I am by producing batch files 9,000 characters long on one line that no one will understand or be able to debug when they go wrong. I am going out of my way to comment the code and make it verbose so beginners and advanced users will both benefit. I don't claim to be an expert that knows everything, if I'm wrong or make a mistake then please contact me and let me know :-)


Microsoft awarded me an MVP (Most Valuable Professional award) in 2004, 2005, 2006, 2007, 2008 & 2009 for the Windows SDK (Windows Installer) area.Please email me any feedback, additional information or corrections.
See this page online (look for updates)

[Top][Contents][Prev]: FOR Loops - for x = 1 to 10[Next]: HandleTrickyCharactersLikeGreaterThanAndAmpersands.cmd -


ScriptingTipsAndTricks© is (C)opyright Dennis Bareis 2003-2008 (All rights reserved).
Sunday September 07 2014 at 12:50pm
Visit ScriptingTipsAndTricks's Home Page
Microsoft awarded me an MVP (Most Valuable Professional award) in 2004, 2005, 2006, 2007, 2008 & 2009 for the Windows SDK (Windows Installer) area.