Sign in to follow this  
Followers 0
rbhkamal

FileFindNextFile() problems

3 posts in this topic

Why this function doesnt work?

Its supposed to make a list of all files found in a specific directory , but it only finds the first file or maybe the second.

thanks,

;+++++++++++++++++++++

Global $file , $ret

$ret = _makefileslist( @ScriptDir & '\' , '*.txt' , $file , 10 )

Func _makefileslist( $path, $find , ByRef $array , $max )

;##this function will DIM $array $max times and make a list of files found.###

;### if failed will return -1 else the number fo files found.

Dim $array[$max + 1]

Local $a = 0

$array[1] = FileFindFirstFile( $path&$find )

If $array[1] = -1 Then ;Exit on if not found

FileClose($array[1])

Return -1

Else

Do ;Loop untill no more files found or $a = $max

$a = $a + 1

$array[$a] = FileFindNextFile($array[1])

If @error = 1 Then

FileClose($array[1])

Return $a - 1

EndIf

Until $a = $max

EndIf

EndFunc

;----------------------------------------------------------------


"When the power of love overcomes the love of power, the world will know peace"-Jimi Hendrix

Share this post


Link to post
Share on other sites



maybe you should look into

FileListToArray()

in help

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Yup that surely helped, thanks 'Valuater' .

maybe you should look into

FileListToArray()

in help

8)


"When the power of love overcomes the love of power, the world will know peace"-Jimi Hendrix

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0