Total Commander

Code: Select all

fsutil file createnew testfile.bin 42949672956

copy con 4bytes
1234^Z

copy /b testfile.bin+4bytes

fsutil sparse setflag testfile.bin

fsutil sparse setrange testfile.bin 0 42949672956

Code: Select all

@echo off
setlocal EnableDelayedExpansion

:: Set current directory to batch file's folder
cd /d "%~dp0"

:: Settings
:: if duration the properties window is shown is too short, the issue does not always occur
set "duration=3"
:: when adjusting file size, adjust range as well (difference=4)
:: 1GB = 1073741824 bytes
set "fsize=1073741824"
set "range=1073741820"
set "validdata_length=4
set "validdata=1234"
set "filename=sparse file.bin"
set "copy_folder=copy"

:: Determine drive, folder, basename and filename for copy
for %%f in ("!filename!") do (
    set "drive=%%~df"
    set "folder=%%~dpf"
    set "basename=%%~nxf"
    set "filename=%%~ff"
    set "filename_copy=!folder!!copy_folder!\!basename!"
)

:: Check if robocopy has sparse support
robocopy /? | find /i "/sparse" >nul
if %errorlevel% NEQ 0 (
    echo ERROR: This test program needs robocopy.exe that supports the /sparse option.
    pause
    endlocal
    exit /b
)

cls
echo Sparse file test
echo:
echo Test if opening the properties window of a sparse file results in decrease of free disk space.
echo This batch file must be run as Administrator or the necessary information cannot be displayed.
echo:
echo This test does the following:
echo     1 Show total reserved clusters for the drive we are testing on
echo     2 Create a sparse file
echo     3 Copy the sparse file (sparse state will be retained)
echo     4 Show properties window of the copied sparse file (closes after a short time)
echo     5 Completely read the copied sparse file
echo     6 Show the drive's total reserved clusters again (check if it changed)
echo     7 Show information about the sparse files
echo     8 Delete the sparse files
echo     9 Show the drive's total reserved clusters again (check if it is back to normal)
echo:
echo The following settings will be used for testing:
echo     Sparse file        : "!filename!"
echo     Copied sparse file : "!filename_copy!"
echo     File size          : !fsize! bytes (but small allocated size)
echo     Show properties    : !duration! seconds
echo:
echo Existing files (with mentioned filenames) will be overwritten without warning.
pause

:: Show total reserved clusters
echo:
echo:
echo Drive !drive!
fsutil fsinfo ntfsinfo !drive! | find /i "Reserved Clusters"
echo:

:: Create sparse file
>"!filename!" <nul set /p "=!validdata!"
fsutil sparse setflag "!filename!"
fsutil sparse setrange "!filename!" !validdata_length! !range!
fsutil file seteof "!filename!" !fsize! >nul
<nul set /p "=(Sparse file created)"

:: Copy file while retaining sparse state
robocopy "!folder!\" "!folder!!copy_folder!" "!basename!" /sparse:y /njh /njs /nfl /ndl /np /ns /nc
echo (Sparse file copied)

:: Show properties for x seconds
call :show_properties filename_copy duration
echo (Properties window shown)

:: Read entire copied sparse file
copy /b "!filename_copy!" nul >nul
echo (Sparse file has been read completely)

:: Show total reserved clusters
echo:
echo Drive !drive!
fsutil fsinfo ntfsinfo !drive! | find /i "Reserved Clusters"

echo (Did the number of reserved clusters erroneously increase?)
pause

:: Show size and allocated size of sparse files
echo:
echo Sparse file information:
echo:
echo     Filename            : "!filename!"
fsutil file layout "!filename!" | findstr /i /r /c:"  Size.*)"
fsutil file layout "!filename!" | findstr /i /r /c:"Allocated Size.*)"
echo:
echo     Filename            : "!filename_copy!"
fsutil file layout "!filename_copy!" | findstr /i /r /c:"  Size.*)"
fsutil file layout "!filename_copy!" | findstr /i /r /c:"Allocated Size.*)"

:: Delete sparse files and remove copy folder if empty
del "!filename_copy!"
del "!filename!"
rd "!folder!!copy_folder!" 2>nul
echo:
echo (Sparse files deleted)

:: Show total reserved clusters
echo:
echo Drive !drive!
fsutil fsinfo ntfsinfo !drive! | find /i "Reserved Clusters"

echo (The number of reserved clusters should be normal again)
pause
endlocal
exit /b


:show_properties
setlocal EnableDelayedExpansion
set "seconds=!%2!"
for %%f in ("!%1!") do (
    set "folder=%%~dpf"
    set "filename=%%~nxf"
)
:: Validate folder exists
if not exist "!folder!" (
    echo Folder not found
    goto :done_show_properties
)
set ps1_show_properties= ^
{ ^
    $shell = New-Object -ComObject Shell.Application; ^
    $folder = $shell.NameSpace('!folder!'); ^
    if ($folder) { ^
        $file = $folder.ParseName('!filename!'); ^
        if ($file) { ^
            $file.InvokeVerb('properties'); ^
            Start-Sleep -Seconds !seconds! ^
        } else { ^
            Write-Host 'File not found' ^
        } ^
    } ^
}
powershell -Command "& !ps1_show_properties!"
:done_show_properties
endlocal
exit /b

Code: Select all

Sparse file test

Test if opening the properties window of a sparse file results in decrease of free disk space.
This batch file must be run as Administrator or the necessary information cannot be displayed.

This test does the following:
    1 Show total reserved clusters for the drive we are testing on
    2 Create a sparse file
    3 Copy the sparse file (sparse state will be retained)
    4 Show properties window of the copied sparse file (closes after a short time)
    5 Completely read the copied sparse file
    6 Show the drive's total reserved clusters again (check if it changed)
    7 Show information about the sparse files
    8 Delete the sparse files
    9 Show the drive's total reserved clusters again (check if it is back to normal)

The following settings will be used for testing:
    Sparse file        : "D:\sparse test\sparse file.bin"
    Copied sparse file : "D:\sparse test\copy\sparse file.bin"
    File size          : 1073741824 bytes (but small allocated size)
    Show properties    : 3 seconds

Existing files (with mentioned filenames) will be overwritten without warning.
Press any key to continue . . .


Drive D:
Total Reserved Clusters :                  1.024  (4,0 MB)

(Sparse file created)
(Sparse file copied)
(Properties window shown)
(Sparse file has been read completely)

Drive D:
Total Reserved Clusters :                264.175  (1,0 GB)
(Did the number of reserved clusters erroneously increase?)
Press any key to continue . . .

Sparse file information:

    Filename            : "D:\sparse test\sparse file.bin"
    Size                : 1.073.741.824 ( 1,0 GB)
    Allocated Size      :        65.536 (64,0 KB)

    Filename            : "D:\sparse test\copy\sparse file.bin"
    Size                : 1.073.741.824 ( 1,0 GB)
    Allocated Size      :        65.536 (64,0 KB)

(Sparse files deleted)

Drive D:
Total Reserved Clusters :                  1.024  (4,0 MB)
(The number of reserved clusters should be normal again)
Press any key to continue . . .

Code: Select all

Type NUL > temp
FSUtil File SetEOF temp 0x40000000
echo abcd >> temp
FSUtil Sparse SetFlag temp
FSUtil Sparse SetRange temp 0 0x40000000
xcopy /-I temp temp2

Code: Select all

FSUtil Sparse SetFlag temp
FSUtil Sparse SetRange temp 0 0x40000000

Code: Select all

DeviceIoControl(handle, FSCTL_SET_SPARSE,...

Code: Select all

Type NUL > temp
FSUtil Sparse SetFlag temp
FSUtil Sparse SetRange temp 0 0x40000000
FSUtil File SetEOF temp 0x40000000
echo abcd >> temp
FSUtil Sparse SetFlag temp
FSUtil Sparse SetRange temp 0 0x40000000

Code: Select all

Type NUL > temp
FSUtil Sparse SetFlag temp
FSUtil File SetEOF temp 0x40000000
echo abcd >> temp
FSUtil Sparse SetRange temp 0 0x40000000

Code: Select all

>"!filename!" <nul set /p "=!validdata!"
fsutil sparse setflag "!filename!"
fsutil sparse setrange "!filename!" !validdata_length! !range!
fsutil file seteof "!filename!" !fsize! >nul