Get all filenames

; Developed by Juno_okyo
#NoTrayIcon
#Region AutoIt3Wrapper directives section
#AutoIt3Wrapper_Icon=juno_okyo.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=Y
#AutoIt3Wrapper_Res_Comment=Developed by Juno_okyo
#AutoIt3Wrapper_Res_Description=Developed by Juno_okyo
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=Y
#AutoIt3Wrapper_Res_ProductVersion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=(C) 2017 Juno_okyo. All rights reserved.
#AutoIt3Wrapper_Res_Field=CompanyName|J2TeaM
#AutoIt3Wrapper_Res_Field=Website|https://junookyo.blogspot.com/
#EndRegion AutoIt3Wrapper directives section

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

Global $files = _FileListToArray(@ScriptDir, '*', 1)
Global $results = ''
_ArrayDelete($files, 0)

For $file In $files
    If $file <> @ScriptName Then
        $results &= $file & @CRLF
    EndIf
Next

ClipPut($results)
MsgBox(64 + 262144, 'Message', 'Done!')