FileFindFirstFile()

[SmOke_N]

I'm trying to allow my users to rename their .exe of my program. It is called upon by the GUI by it's name.

I was searching the Help:

FileFindFirstFile(@ProgramFilesDir & "\File1\File2\File3\" & "*.*"); Name of file they cannot currently change

The FileFindFirstFile seems would work, but it returns a "." or a ".." first then my .exe.

Any ideas on how to get rid of the "." and ".."?

Sorry if it's stupid question.

[MSLx Fanboy]

If $result <> "." OR $result <> ".." Then

;; stuff

EndIf

[SmOke_N]

If $result <> "." OR $result <> ".." Then

;; stuff

EndIf

<{POST_SNAPBACK}>

HA!!, I knew that!!

Too much 4th of July... Thanks MSLX

EDIT: Spelled your name wrong!!

Edited July 4, 2005 by ronsrules

[SmOke_N]

Ok, I stand corrected, too much 4th cheer for me. While they Bar-B-Q, I script, but I am participated in the consumption LOL.

I understood that, and thought as soon as I saw it that BINGO!!

Out of help file w/ your help.

; Shows the filenames of all files in the current directory, note that "." and ".." are returned.
$search = FileFindFirstFile(@ProgramFilesDir & "\File1\File2\File3\" & "*.*")  

; 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
If $file <> "." OR $file <> ".." Then
    MsgBox(0, "Executible is:", $file)
EndIf
WEnd

; Close the search handle
FileClose($search)

But, I'm still getting a "..", and not the executible.

[jpm]

Ok, I stand corrected, too much 4th cheer for me.  While they Bar-B-Q, I script, but I am participated in the consumption  LOL.

I understood that, and thought as soon as I saw it that BINGO!!

Out of help file w/ your help.

; Shows the filenames of all files in the current directory, note that "." and ".." are returned.
$search = FileFindFirstFile(@ProgramFilesDir & "\File1\File2\File3\" & "*.*")  

; 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
If $file <> "." OR $file <> ".." Then
    MsgBox(0, "Executible is:", $file)
EndIf
WEnd

; Close the search handle
FileClose($search)

But, I'm still getting a "..", and not the executible. 

<{POST_SNAPBACK}>

If $file <> "." OR $file <> ".." Then

must be

If $file <> "." AND $file <> ".." Then

too much beer in 4th

[SmOke_N]

You're a beautiful man!! (I mean that in the most respectfull way (hope my wife doesn't read that ))

[MSLx Fanboy]

Hehe, I need to lay off that soda, one 12-oz is too much

[SmOke_N]

No worries m8, this "Cokes" for u!!

[FuryCell]

If you are looking for a .exe then why not

:; Shows the filenames of all files in the current directory, note that "." and ".." are returned.
$search = FileFindFirstFile(@ProgramFilesDir & "\File1\File2\File3\*.exe")  

; 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
   MsgBox(0, "Executible is:", $file)
EndIf
WEnd

; Close the search handle
FileClose($search)

[SmOke_N]

If you are looking for a .exe then why not

:; Shows the filenames of all files in the current directory, note that "." and ".." are returned.
$search = FileFindFirstFile(@ProgramFilesDir & "\File1\File2\File3\*.exe")  

; 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
   MsgBox(0, "Executible is:", $file)
EndIf
WEnd

; Close the search handle
FileClose($search)

<{POST_SNAPBACK}>

Because I don't want the "." or "..". Test it out yourself you'll see.

This works:

Global $Exe = Exec()

While 1
    MsgBox(4096, "File:", $Exe)
WEnd

Func Exec()
$search = FileFindFirstFile(@ProgramFilesDir & "\File1\" & "*.*")
If $search = -1 Then
   MsgBox(0, "Error", "No files/directories matched the search pattern")
   Exit
EndIf
While 1
   $Exe = FileFindNextFile($search)
   If @error Then ExitLoop
   If $Exe <> "." And $Exe <> ".." Then
         Return $Exe
   EndIf
WEnd
FileClose($search)
EndFunc

Edit: I posted this before I saw this: *.exe (I'll test that)

Edited July 5, 2005 by ronsrules

[SmOke_N]

There were a couple of syntax erros with yours buy you were right on the money too....

; Shows the filenames of all files in the current directory, note that "." and ".." are returned.
$search = FileFindFirstFile(@ProgramFilesDir & "\File1\File2\File3\*.exe")  

; 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
   MsgBox(0, "Executible is:", $file)
WEnd

; Close the search handle
FileClose($search)

Very cool... ty