Delete all files but one?

[Kandy477]

Is there an easy way to delete all files in a directory but one? What I'm trying to do is to perform a recursive file search for a directory containing a certain file then delete all files in that directory save for a file named "config.txt". The only way I can think of to do it is to copy config.txt into a temp folder, delete all files in the directory, then copy config.text BACK to the original directory and continue on with my script. It seems that there must be an easier way to do this but I'm simply ignorant of it.

Any ideas?

[dot45]

you could ouput all the files to an array or file, then trim the file you want from the list, then delete everything on the list.

[SmOke_N]

Is there an easy way to delete all files in a directory but one? What I'm trying to do is to perform a recursive file search for a directory containing a certain file then delete all files in that directory save for a file named "config.txt". The only way I can think of to do it is to copy config.txt into a temp folder, delete all files in the directory, then copy config.text BACK to the original directory and continue on with my script. It seems that there must be an easier way to do this but I'm simply ignorant of it.

Any ideas?

I certainly can't think of a faster way to do it than that.

If FileCopy(.., ...) Then
    If DirRemove(., 1) Then FileMove(...., ...., 8)
EndIf

Doesn't seem like much overhead to me.

Edited August 12, 2009 by SmOke_N
Changed second FileCopy() to FileMove() so you don't have to use FileDelete() ;)

[billthecreator]

#Include <File.au3>
$dir = "your path here"

$DirArray = _FileListToArray($dir)

For $d = 1 To $DirArray[0]
    If $DirArray[$d] <> "config.txt" Then FileDelete($dir & "\" & $DirArray[$d])
Next

Edited August 13, 2009 by billthecreator

[Kandy477]

That is perfect! Thanks!