Execute help.

[ileandros]

Hello,

I made a simple script with a list, a menu/menuitem that adds item to the list and a button that executes it.

It adds All (*.*) . When they are displayed at the list they are item with the Path.

How can i make it generete them as they are for example if its a .txt or .mp3 or image.

Is it possible the execute button to execute them as they are for example if it is a mp3 run it as a mp3 if its a .txt run it as .txt if its an image run it as an image.

Can i make the program recognize them and execute with the right way???

This is the proggram.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
Example()
Func Example()
 Local  $filemenu, $fileitem
 Local $helpmenu, $infoitem, $exititem, $recentfilesmenu
 Local $viewmenu, $viewstatusitem, $cancelbutton
 Local $statuslabel, $msg, $file
 GUICreate("My GUI menu", 300, 200)
 $List1 = GUICtrlCreateList("", 0,0,299, 150)
 GUICtrlSetData(-1, "")
 $filemenu = GUICtrlCreateMenu("&File")
 $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
 GUICtrlSetState(-1, $GUI_DEFBUTTON)
 $helpmenu = GUICtrlCreateMenu("?")
 GUICtrlCreateMenuItem("Save", $filemenu)
 GUICtrlSetState(-1, $GUI_DISABLE)
 $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
 $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
 GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line
 $viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
 GUICtrlSetState(-1, $GUI_CHECKED)
 $executebutton = GUICtrlCreateButton("Execute", 50, 150, 70, 20)
 GUICtrlSetState(-1, $GUI_FOCUS)
 $cancelbutton = GUICtrlCreateButton("Exit", 180, 150, 70, 20)
 GUISetState()
 While 1
  $msg = GUIGetMsg()
  If $msg = $fileitem Then
   $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
   GUICtrlSetData($List1, $file)
   If @error <> 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)
  EndIf
  Switch $msg
   Case $executebutton
    $read = GUICtrlRead($List1)
    if $read = true Then
  MsgBox(0,"test", "test")
  EndIf
  EndSwitch
  If $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem Then ExitLoop
  If $msg = $infoitem Then MsgBox(0, "Info", "Only a test...")
 WEnd
 GUIDelete()
EndFunc   ;==>Example

[BrewManNH]

Use ShellExecute to run the files/programs, they'll be run by whatever progams they're set to be run by. For instance, .txt would probably open Notepad with the text file opened in it.

[ileandros]

That did

Is there a way the list to display the files as they are and not as their Path???

[BrewManNH]

You could use _PathSplit to get the path components of the files.

[ileandros]

that is true but with _PathSplit you have to check all like

_PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)

What i want to manage is when the item is added at the list to be displayed as one of these ($szName)

[AdamUL]

Try this

; File name w/0 ext
Local $sFilenameExExt = StringRegExpReplace($sFile, "^.*|..*$", "")

from this

Adam

Edited February 21, 2012 by AdamUL

[BrewManNH]

So? What's stopping you from using "$szFName & $szExt"?

[ileandros]

So? What's stopping you from using "$szFName & $szExt"?

I dont know im getting error.

I didn't manage to make the item be displayed with the name and not with the path.I got confused :/

[ileandros]

Ouf i made it!!!

Can i make the programm when i run it to generete all the files (.mp3, .txt, img etc) in the computer and load them at the list box??

Or make it generate spesific type of files ???