Help my sample Installer script..

[eri]

This Script :

#include <GUIConstants.au3>
$Window = GUICreate("My Sample Script", 300, 56)
$Location = GUICtrlCreateInput("", 8, 16, 80, 21)
$Locate = GUICtrlCreateButton("Select Drive", 100, 16, 97, 25, 0)
$Install = GUICtrlCreateButton("Apply", 210, 16, 89, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Locate
        $var = FileSelectFolder("Select Drive Not Folder", "", 5)
        If Not @error Then
            GUICtrlSetData($Location, $var)
        EndIf
    Case $Install
        $path = GUICtrlRead($Location)
        If $path = '' Then
            MsgBox(64, "Warning", "1st Select Drive Then Apply")
        ElseIf DirCreate($path) Then
            FileInstall("Exefile.exe", $path & '', 1)
        Else
            MsgBox(64, "Warning", "Can`t Apply this File To Drive")
        EndIf
    EndSwitch
    WEnd

When Click Select Drive Button, Example select C drive, In GUICtrlCreateInput will Show Like This C:\ I want Remove Slash After Drive letter

Only C: without "\" How to make script without "\"..???

[bogQ]

StringReplace

or Edit: i think that StringReplace will net do the work

StringLeft with StringLen

can probably do the work

Edited February 19, 2010 by bogQ

[lainline]

#include <GUIConstants.au3>
$Window = GUICreate("My Sample Script", 300, 56)
$Location = GUICtrlCreateInput("", 8, 16, 80, 21)
$Locate = GUICtrlCreateButton("Select Drive", 100, 16, 97, 25, 0)
$Install = GUICtrlCreateButton("Apply", 210, 16, 89, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Locate
        $var = FileSelectFolder("Select Drive Not Folder", "", 5)
        If Not @error Then
   $var2 =StringSplit($var,"\")
            GUICtrlSetData($Location, $var2[1])
        EndIf
    Case $Install
        $path = GUICtrlRead($Location)
        If $path = '' Then
            MsgBox(64, "Warning", "1st Select Drive Then Apply")
        ElseIf DirCreate($path) Then
            FileInstall("Exefile.exe", $path & '', 1)
        Else
            MsgBox(64, "Warning", "Can`t Apply this File To Drive")
        EndIf
    EndSwitch
    WEnd

Edited February 19, 2010 by lainline

[eri]

#include <GUIConstants.au3>
$Window = GUICreate("My Sample Script", 300, 56)
$Location = GUICtrlCreateInput("", 8, 16, 80, 21)
$Locate = GUICtrlCreateButton("Select Drive", 100, 16, 97, 25, 0)
$Install = GUICtrlCreateButton("Apply", 210, 16, 89, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Locate
        $var = FileSelectFolder("Select Drive Not Folder", "", 5)
        If Not @error Then
   $var2 =StringSplit($var,"\")
            GUICtrlSetData($Location, $var2[1])
        EndIf
    Case $Install
        $path = GUICtrlRead($Location)
        If $path = '' Then
            MsgBox(64, "Warning", "1st Select Drive Then Apply")
        ElseIf DirCreate($path) Then
            FileInstall("Exefile.exe", $path & '', 1)
        Else
            MsgBox(64, "Warning", "Can`t Apply this File To Drive")
        EndIf
    EndSwitch
    WEnd

thank You..