How can I determine the number of fragments in a file?

[Exit]

I would like to see how many fragments a file is fragmented into.
Unfortunately I didn't find any clues in the forum.
Can someone give me the crucial clue? 

[argumentum]

..but that has to do with the file system. As far as AutoIt knows, it requests a "file" and the OS reads it to it.

Edit: more over. If is an SSD or an iSCSI or HDD or .... . You can not defragment the file even if read and rewritten, as the file system is the one that handles that.

Edited May 18, 2020 by argumentum
expand

[Exit]

Just a code snipped to show what i want:

Local $File = "C:\Windows\System32\Tasks\Microsoft\Windows\Defrag\ScheduledDefrag"
MsgBox(64+262144, Default, "the Fragmentscount of "&$File& " is "&_GetFragmentsCount($File),0)

Func _GetFragmentsCount($File)
    Local $Fragmentscount=0

;~  please insert the magic code here

    Return $Fragmentscount
EndFunc

 

[seadoggie01]

I think you can use Contig from M$ with the a and v command line options. You'll need to parse the output, of course. https://docs.microsoft.com/en-us/sysinternals/downloads/contig (Link to documentation, not direct download)

[Exit]

Thanks to @seadoggie01 

Based on his advice, I could build a solution:

#include <String.au3>

$File = "C:\Windows\System32\LogFiles\WMI\Wifi.etl"

$Pgm = @MyDocumentsDir & "\Data\Software\SysinternalsSuite\Contig.exe"
If Not FileExists($Pgm) Then MsgBox(16 + 262144, Default, "File " & $Pgm & " not found." & @LF & @LF & "Install it from here: https://live.sysinternals.com/Contig.exe", 0)

MsgBox(64 + 262144, Default, "The fragmentscount of " & @LF & @LF & $File & @LF & @LF & "is " & _GetFragmentsCount($File), 0)

Func _GetFragmentsCount($File)
    If Not FileExists($File) Then Return MsgBox(64+262144, Default, "File not found:"&@lf&@lf&$File,9)*0 + SetError(1, 0, 0)
    $iPID = Run(@ComSpec & " /c " & $Pgm & " -a -nobanner " & $File, "", default, 8)
    ProcessWaitClose($iPID)
    Local $sOutput = StdoutRead($iPID)
    ConsoleWrite($sOutput & @CRLF)
    $aFound = _StringBetween($sOutput, "in ", " Fragments")
    If @error Then Return SetError(0, 0, 1)
    Return $aFound[0]
EndFunc   ;==>_GetFragmentsCount