Size Comparison

[Siryx]

Hey guys,

I have a folder full of ~5000 files and I would like to delete files out of there. I want to delete every file which is there twice or more often (not one left over, all should be gone) and the ones who are there just once should stay. The problem is, they have different names but the exact size is unique. So I thought about deleting the files with same sizes which appear more than once. Can you throw me some keywords to look out for in the helpfile? I'm basically just done with the "Hello World" so, please include basic keywords  thank you!

[BrewManNH]

FileListToArray and FileGetSize

[MikahS]

Have a look at: 

 

FileGetSize

in the helpfile. 

Edit: to slow

Edited April 28, 2015 by MikahS

[Siryx]

 

#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>


Func Example()
    ; List all the files and folders in the desktop directory using the default parameters.
    $aFileList = _FileListToArray("D:\Musik - Kopie","*",)
    If @error = 1 Then
        MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.")
        Exit
    EndIf
    If @error = 4 Then
        MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.")
        Exit
    EndIf
EndFunc

Func Example1()
    ; Retrieve the file size (in bytes) of the AutoIt executable.
    $iFileSize = FileGetSize($aFileList[1])

    ; Display the file size and convert to a readable form.
    MsgBox($MB_SYSTEMMODAL, "", ByteSuffix($iFileSize))
EndFunc   ;==>Example

 

Why doesn't this give me the size of the first file of the array? It does nothing, no error etc

Edited April 28, 2015 by Siryx

[jguinch]

Because you never call your functions.... Add Example() and/or Example1() in your code

[Siryx]

it gives me error at line 71 .. I only have 27.. I have no idea

 

is that caused by the file.au3 file? or did i make a mistake

€: comma too much

now I get variable not declared error;

isn't 

    $iFileSize = FileGetSize($aFileList[1])
 

supposed to be first of the array ?

Edited April 28, 2015 by Siryx

[jguinch]

You have a bad syntax here : $aFileList = _FileListToArray("D:\Musik - Kopie","*",) < The comma is the problem

You can try with this kind of code :

Local $sPath = "D:\Musik - Kopie"
Local $hSearch = FileFindFirstFile($sPath & "\*.*")
If $hSearch = -1 Then Exit

Local $sSizes = ";"

While 1
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then ContinueLoop
    
    $iSize = FileGetSize($sPath & "\" & $sFile)
    If StringInStr($sSizes, ";" & $iSize & ";") Then
        FileDelete($sPath & "\" & $sFile)
    Else
        $sSizes &= $iSize & ";"
    EndIf
WEnd
FileClose($hSearch)

 

Edited April 28, 2015 by jguinch
Correcting wrong code

[Siryx]

thank you, I will try to understand

€: how does

If StringInStr($sSizes, $iSize & ";")

that work? what does it do? $sSizes is nothing why does it work?

Edited April 28, 2015 by Siryx

[guinness]

Remove that trailing comma after "*" and you will see the error disappear.

Edited April 28, 2015 by guinness

[jguinch]

The error refers to the included File.au3, which has no problem. The problem is the way you call the _FileListToArray.
Did you try to remove the comma ?

[Siryx]

yes yes 

now I get variable not declared error;

isn't 

    $iFileSize = FileGetSize($aFileList[1])
 

supposed to be first of the array ?

[jguinch]

$sSizes is nothing until it is set to some concatenate size values (in the Else step)
At the beginning, the variable is empty, but each uniq size is added to it, with a ";" as separator.
For each file size, I search in this variable if the value <size>; exists.

In fact, my code is wrong. To work, $sSizes should be set to ";" at the beginning and the search must operate with ;<filesize>;

I edit my code now...

[Siryx]

$sSizes is nothing until it is set to some concatenate size values (in the Else step)
At the beginning, the variable is empty, but each uniq size is added to it, with a ";" as separator.
For each file size, I search in this variable if the value <size>; exists.

In fact, my code is wrong. To work, $sSizes should be set to ";" at the beginning and the search must operate with ;<filesize>;

I edit my code now...

​okay I tried it and it leaves one file behind.. but I think I understood so far

[jguinch]

$aFileList[1] is supposed to be the first file.

But I see in your code that the $aFileList is not declared as a global variable. Try to declare it before calling the function :

Global $aFileList

[Siryx]

$aFileList[1] is supposed to be the first file.

But I see in your code that the $aFileList is not declared as a global variable. Try to declare it before calling the function :

Global $aFileList

​oh now I understand what Local and Global are for!

it gives me 0 .. damn

Edited April 28, 2015 by Siryx

[jguinch]

Please, post your code. We cannot help you if we don't see what you do...

Edited April 28, 2015 by jguinch

[Siryx]

 

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>

Global $aFileList
Global $iFileSize

Listing()
Func Listing()
    ; List all the files and folders in the desktop directory using the default parameters.
    $aFileList = _FileListToArray("D:\Musik - Kopie")
    If @error = 1 Then                      ;Kills when directory doesnt exist
        MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.")
        Exit
    EndIf
    If @error = 4 Then                      ;Kills when folder is empty
        MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.")
        Exit
    EndIf
EndFunc

Retrieving()
Func Retrieving()
    ; Retrieve the file size of $aFileList
    $iFileSize = FileGetSize($aFileList[1])
    ; Display the file size
    MsgBox($MB_SYSTEMMODAL, "",$iFileSize)
EndFunc

_ArrayDisplay($aFileList)

this is it im just playing around and trying to understand arrays... I'm also trying to understand what you need to do to your code, what effect the ; has

when i want to make a loop, how can i change the 1 in 

$aFileList[1]

Edited April 28, 2015 by Siryx

[jguinch]

In your case, FileGetSize($aFileList[1]) returns 0 because only the filenames are returned in your _FileListToArray call.

You have to work with the full name to use FileGetSize, either by using True in the $bReturnPath parameter of _FileListToArray, or use something like FileGetSize("D:\Musik - Kopie\" & $aFileList[1])

[Siryx]

Local $sPath = "D:\Musik - Kopie2" ;searchpath 
Local $hSearch = FileFindFirstFile($sPath & "\*.*") ;starts the searching and gives out name of the file
If $hSearch = -1 Then Exit ;no files kills scripts - rip

Local $sSizes   ;defining of variable

While 1                                             ;starts the loop to search for files
    $sFile = FileFindNextFile($hSearch)             ;variable with filename
    If @error Then ExitLoop                         ;kills when no files
    If @extended Then ContinueLoop                  ;goes on when found

    $iSize = FileGetSize($sPath & "\" & $sFile)     ;gets the size from the file with the data from line 8
    If StringInStr($sSizes, $iSize & ";") Then      ;
        FileDelete($sPath & "\" & $sFile)           ;deletes file when sizes are the same  
    Else                                            
        $sSizes &= $iSize & ";"                     ;if not the same then sizes is the first size and ; behind it
    EndIf                                           ;if now sizes and size are the same stringinstr will trigger and delete 2nd file
WEnd
FileClose($hSearch)

this is how far I understood your script, I think I'll try to do something like this because I don't understand arrays..

[Siryx]

In your case, FileGetSize($aFileList[1]) returns 0 because only the filenames are returned in your _FileListToArray call.

You have to work with the full name to use FileGetSize, either by using True in the $bReturnPath parameter of _FileListToArray, or use something like FileGetSize("D:\Musik - Kopie\" & $aFileList[1])

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>

Global $aFileList
Global $iFileSize

Listing()
Func Listing()
    ; List all the files and folders in the desktop directory using the default parameters.
    $aFileList = _FileListToArray("D:\Musik - Kopie","*",1,True)
    If @error = 1 Then                      ;Kills when directory doesnt exist
        MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.")
        Exit
    EndIf
    If @error = 4 Then                      ;Kills when folder is empty
        MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.")
        Exit
    EndIf
EndFunc

Retrieving()
Func Retrieving()
    ; Retrieve the file size of $aFileList
    $iFileSize = FileGetSize($aFileList[1])
    ; Display the file size
    MsgBox($MB_SYSTEMMODAL, "",$iFileSize)
EndFunc

_ArrayDisplay($aFileList)

works! atleast it gives me the bytes so thats step one.. but would you mind explaining me how you would change the code you wrote? with the ";", I didn't quite understood

$sSizes is nothing until it is set to some concatenate size values (in the Else step)
At the beginning, the variable is empty, but each uniq size is added to it, with a ";" as separator.
For each file size, I search in this variable if the value <size>; exists.

In fact, my code is wrong. To work, $sSizes should be set to ";" at the beginning and the search must operate with ;<filesize>;

I edit my code now...

I tried your code out and it deleted everything I wanted but one of the files (when there where 2 / 3 / n it left one behind )

Edited April 28, 2015 by Siryx