Change background image

TUTORIALS Get All Filename in a folder

Discussion in 'Computer Skills' started by DannyTuan, Nov 15, 2017.

  1. DannyTuan

    DannyTuan Ban Quản Trị Staff Member Administrator

    Joined:
    Jun 10, 2000
    Messages:
    174
    Likes Received:
    0
    Trophy Points:
    16
    Gender:
    Male
    Location:
    Cần Thơ
    This code can using in AutoIT.
    Developed by Juno Okyo ( J2 Team ).
    Thanks for sharing !
    Code:
    ; 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!')
    Or you can using EXE Attact file.
    Move exe file to your folder & running it.
    It will copy all filename to clipboards, you only need paste it to notepad or word.
     

Share This Page