Find file with * and get the correct filename.

[Lesler]

Hello

First excuse my English, it is the best google translate can :-)

Are there any of you know how I can.

I have some files in different vertioner example.

670.pdf

670-A.pdf

670-B.pdf

I would like to search for them with 670 and get it accurate, current filename shown

in a Msgbox

Here is the program part I have written to search, it is only an extract

the program itself.

If FileExists ($path & $name &("*. pdf ")) Then

.....

In fact thanks

Martin

[bwochinski]

I haven't tested this, but it's a barely modified copy from the help file for FileFindNextFile()

#include <Array.au3>

$files[1] = 0
$path = ".\"
$name = "670"

; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile($path & $name & "*.pdf")  

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    _ArrayAdd($files,$file)
WEnd

; Close the search handle
FileClose($search)

_ArrayDelete($files,0)

$files = _ArrayToString($files,@CRLF)
MsgBox(4096, "Files:", $files)

[Melba23]

Lesler,

The simplest way is to use _FileListToArray - no need to do all the hard work yourself whan AutoIt has a function to do it for you!:

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

$aArray = _FileListToArray(@ScriptDir, "670*.pdf", 1)
ConsoleWrite(@error & @CRLF)

_ArrayDisplay($aArray)

M23

[bwochinski]

Simpler indeed.

I hadn't noticed you could specify a filter on the _FileListToArray() function before, thanks M23

[Melba23]

bwochinski,

If you want something a little more comprehensive, take a look at the RecFileListToArray UDF in my sig.

M23

[Lesler]

Tanks