Variable must be an "object" type

[DynamicRookie]

Hello there,

 

So i need to clean up my directories a bit, so created a script that checks the amount of .lnk type files found and deletes each of them in a For loop.

To do this task i'm using _FileListToArray function from File.au3 udf, the problem is that the variable assigned to this command dont seem to store any subscripts, i've been trying to figure out what i done wrong but i couldn't

 

Variable $a stores local script directory

Variable $b stores an array with the list of files found

Variable $d is only for skipping the first subscript (0) that contains the amount of files found.

 

The variable $b when used in a For loop returns this error:

Any help is really appreciated.

 

My script is below:
 

#Include <File.au3>
$a = @ScriptDir
$b = _FileListToArray($a, ".lnk", 1, True)
$d = 1

For $c in $b
    If $d <> 1 Then
    FileDelete($c)
    Else
    $d = 0
    EndIf
Next
MsgBox(0, '', "Cleaned " & $b[0] & " links in " & $a)
Exit 0

 

Edited April 14, 2018 by DynamicRookie
Amplied a bit the reason of my problem

[TheXman]

Just scanning your script, it looks like your file filter is bad.  It should probably be "*.lnk" not ".lnk".  If you added error checking, specifically checking the value of @error after the _FileListToArray(), my guess is that @error is not 0.  Below is an example of one way to do it.

The error is telling you that $b is not an array, most likely because the _FileListToArray() failed.

 

#Include <File.au3>
#include <Constants.au3>

example()

Func example()
    Local $iCount  = 0
    Local $sDir    = @ScriptDir
    Local $aResult = _FileListToArray($sDir, "*.lnk", $FLTA_FILES, True)
    If @error Then
        MsgBox($MB_ICONERROR, "Error", "@error = " & @error)
        Exit -1
    EndIf

    For $i = 1 To $aResult[0]
        $iCount += 1
    Next

    MsgBox($MB_ICONINFORMATION, "Result", "Count = " & $iCount)
EndFunc

 

Edited April 14, 2018 by TheXman

[DynamicRookie]

Wow, tysm!

[BrewManNH]

You could also do it this way.

Run(@Comspec & " /k del <your pathname here>\*.lnk"

 

[DynamicRookie]

4 hours ago, BrewManNH said:

You could also do it this way.

Run(@Comspec & " /k del <your pathname here>\*.lnk"

 

Thanks, also, how could i check for all the sub-directories on a certain folder?

                  1    4
I.e. Test > 2 > test2.lnk

                  3

                  test.lnk

 

I want to get rid of a lot of links i have on a usb.

Edited April 14, 2018 by DynamicRookie

[BrewManNH]

Quote

DEL [/P] [/F] [/S] [/Q] [/A[[:]attributes]] names
ERASE [/P] [/F] [/S] [/Q] [/A[[:]attributes]] names

  names         Specifies a list of one or more files or directories.
                Wildcards may be used to delete multiple files. If a
                directory is specified, all files within the directory
                will be deleted.

  /P            Prompts for confirmation before deleting each file.
  /F            Force deleting of read-only files.
  /S            Delete specified files from all subdirectories.
  /Q            Quiet mode, do not ask if ok to delete on global wildcard
  /A            Selects files to delete based on attributes
  attributes    R  Read-only files            S  System files
                H  Hidden files               A  Files ready for archiving
                I  Not content indexed Files  L  Reparse Points
                -  Prefix meaning not

If Command Extensions are enabled DEL and ERASE change as follows:

The display semantics of the /S switch are reversed in that it shows
you only the files that are deleted, not the ones it could not find.

Microsoft offers a lot of help information about how to use commands.

Edited April 15, 2018 by BrewManNH