Just delete the txt file?

[youtuber]

Codes are deleting all files, but I just want to delete txt files.

$file = FileSelectFolder("Select Folder", @ScriptDir)
If $file = "" Or @error Then Exit
    $FileSearch = FileFindFirstFile($file & "*.txt")
    If $FileSearch <> 1 Then
        While 1
            $FileFind = FileFindNextFile($FileSearch)
            If @extended <> 0 Then ContinueLoop
            FileDelete($file & "\" & $FileFind)
            Sleep(500)
            FileClose($FileSearch)
        WEnd
    EndIf

 

[Marc]

$file = FileSelectFolder("Select Folder", @ScriptDir)
If $file = "" Or @error Then Exit
$FileSearch = FileFindFirstFile($file & "\*.txt")
If $FileSearch <> -1 Then
    While 1
        $FileFind = FileFindNextFile($FileSearch)
        If @error Then ExitLoop
        FileDelete($file & "\" & $FileFind)
        Sleep(500)
        FileClose($FileSearch)
    WEnd
EndIf

 

Edited May 18, 2019 by Marc

[mikell]

$folder = FileSelectFolder("Select Folder", @ScriptDir)
If $folder = "" Or @error Then Exit
FileDelete($folder & "\*.txt")

[Marc]

Short and to the point 👍