eri Posted February 19, 2010 Share Posted February 19, 2010 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 "\"..??? Link to comment Share on other sites More sharing options...
bogQ Posted February 19, 2010 Share Posted February 19, 2010 (edited) StringReplaceor Edit: i think that StringReplace will net do the work StringLeft with StringLencan probably do the work Edited February 19, 2010 by bogQ TCP server and client - Learning about TCP servers and clients connectionAu3 oIrrlicht - Irrlicht projectAu3impact - Another 3D DLL game engine for autoit. (3impact 3Drad related) There are those that believe that the perfect heist lies in the preparation.Some say that it’s all in the timing, seizing the right opportunity. Others even say it’s the ability to leave no trace behind, be a ghost. Link to comment Share on other sites More sharing options...
lainline Posted February 19, 2010 Share Posted February 19, 2010 (edited) #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 Link to comment Share on other sites More sharing options...
eri Posted February 19, 2010 Author Share Posted February 19, 2010 #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.. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now