Get the extion of a file

[PantZ4 0]

How to get the extion(spelling?) of a file?

Like

If $msg = $GUI_EVENT_CLOSE Or $msg = $exit Then ExitLoop
        If $msg = $selectfilebutton Then
            GUICtrlSetData($statusgroup,"Status: Select File to Optimize")
            GUISetState(@SW_DISABLE,$GuiWindow)
            $file = FileOpenDialog("Select File to Optimize",@WorkingDir,"All Compatible File Types (*.w3m;*.w3x;*.wts;*.j)|Warcraft 3 Maps (*.w3m;*.w3x)|JASS Scripts (*.j)|String Files (*.wts)|Text Files (*.txt)|All Files (*.*)",1)
            $CheckHasEnableBoolean = 0
            If $file = "" Then
                GUICtrlSetData($filenamelabel,"File: No file selected")
                GUICtrlSetTip($selectfilebutton,"Press this button to select the file to optimize")
                GUICtrlSetData($helplabel1,"Select the file to optimize: "&@LF&"Works with maps (.w3m and .w3x), JASS scripts and string files.")
            Else
                GUICtrlSetData($filenamelabel,"File: "&$file)
                GUICtrlSetTip($selectfilebutton,$file)
                GUICtrlSetData($helplabel1,"Go now to Script Optimization"&@LF&"Or press Select File button again to choose another file")
            EndIf
            GUICtrlSetData($statusgroup,"Status: Waiting...")
            GUISetState(@SW_ENABLE,$GuiWindow)
            GUISetState(@SW_HIDE,$GuiWindow)
            GUISetState(@SW_SHOW,$GuiWindow)
        EndIf

But it didn't work.

Thank you

[/dev/null 1]

How to get the extion(spelling?) of a file?

After this I want it to check what file it is. I have tryed:

If $file = "*.w3x" Then

But it didn't work.

at least two options....

1.) Preferred: _PathSplit() - see help file

2.) StringInStr($file,".w3x") - see help file

Cheers

Kurt

[BigDod 518]

How about

If StringRight($file,3) = "w3x" Then

[PantZ4 0]

How about

If StringRight($file,3) = "w3x" Then

Ahh a easy way

Thank you

[PantZ4 0]

at least two options....

1.) Preferred: _PathSplit() - see help file

2.) StringInStr($file,".w3x") - see help file

Cheers

Kurt

How does the _PathSplit() works?

My code:

$TestPath = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
                $TestPath[3] = $filename

And $filename retruns to ""

Helpfile:

Return Value

Returns an array with 5 elements where 0 = original path, 1 = drive, 2 = directory, 3 = filename, 4 = extension

But maybe I shall not say $TestPath[3] = $filename?

[/dev/null 1]

How does the _PathSplit() works?

as shown in the help file sample...

#include <file.au3>

$filename = "C:\temp\test.w3x"
Dim $szDrive, $szDir, $szFName, $szExt
$SplittedPath = _PathSplit($filename, $szDrive, $szDir, $szFName, $szExt)

if ($szExt = ".w3x") then
   msgbox(0,"INFO", "HuHu ... found a magic W3X file...")
endif
oÝ÷ Ù«©mz¹Ú¶+Þjëh×6#include <file.au3>

$filename = "C:\temp\test.w3x"
Dim $szDrive, $szDir, $szFName, $szExt
$SplittedPath = _PathSplit($filename, $szDrive, $szDir, $szFName, $szExt)

if ($SplittedPath[4] = ".w3x") then
   msgbox(0,"INFO", "HuHu ... found a magic W3X file...")
endif

Cheers

Kurt

[PantZ4 0]

Now it works

Thanks