delete all .xls , xlsx , doc files in folders & subdirectories

[13lack13lade]

Hi All,

I have a bunch of folders within folders within folders within folders... 

Is there a way i could list the main directory without the subdirectories and have a script that goes into every folder and sub folder and deletes the files that end in certain formats? - Or even happy for it to delete all files in all folders if thats easier.. 

how easy would this be to achieve? i literately have ALOT of folders within folders that i need to clear so they are just empty shells..

 

Any help would be appreciated.

Edited May 13, 2014 by 13lack13lade

[13lack13lade]

Nevermind - solved this using cmd prompt... in the main directory - erase /s /q *.format

however i wonder if there is a way to get a list of filepaths including all the subfolders at all? because i deleted everything i have 1 folder within a few folders that i need to move data back to however there is hundreds.. cant think of a way to copy the files over quickly..

[Melba23]

13lack13lade,

 

i wonder if there is a way to get a list of filepaths including all the subfolders

_FileListToArrayRec.

M23

[Fokes]

 Try this:

expandcollapse popup

#include <Constants.au3>
#include <File.au3>
#include <Array.au3> ; Required for _ArrayDisplay only.

Example(@ScriptDir)

Func Example($sFilePath, $sFilter = "*.*")
   If Not StringInStr(FileGetAttrib($sFilePath), "D") Then Return SetError(1, 0, 0)

   $sFilePath = StringRegExpReplace($sFilePath, "[\\/]+\z", "") & "\"

   Local $iPID = Run(@ComSpec & ' /C DIR "' & $sFilePath & $sFilter & '" /B /A-D /S', $sFilePath, @SW_HIDE, $STDOUT_CHILD)

   ProcessWaitClose($iPID)

   Local $sOutput = StdoutRead($iPID)

   Local $aArray = StringSplit(StringTrimRight(StringStripCR($sOutput), StringLen(@CRLF)), @CRLF)
   If @error Then
      ConsoleWriteError("Error: " & @error & @CRLF)
   Else
      Local $avArray[0]
      For $i = 1 To $aArray[0]
         Local $sDrive = "", $sDir = "", $sFilename = "", $sExtension = ""
         Local $aPathSplit = _PathSplit($aArray[$i], $sDrive, $sDir, $sFilename, $sExtension)
         Select
         Case $sExtension = ".xls"
            _ArrayAdd($avArray, $aArray[$i])
         Case $sExtension = ".xlsx"
            _ArrayAdd($avArray, $aArray[$i])
         Case $sExtension = ".doc"
            _ArrayAdd($avArray, $aArray[$i])
         EndSelect
      Next
      _ArrayDisplay($avArray)
      For $j = 0 To UBound($avArray) - 1
         FileDelete($avArray[$j])
      Next
   EndIf
EndFunc

I experienced something different from the usual command prompt.