Get ten file video vao word

#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!')