Sign In
Register
Help
I have setup the GUI the way I want, but the problem is I am having a problem retrieving an array or something like that of all the checked items in the tree view.
Basicly I am looking to do is have it copy the file from the source location to the destination location.
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <TreeViewConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <Array.au3> #Region ### START Koda GUI section ### $FBMCTransfer = GUICreate("FBMC Lockdown Transfer", 476, 601, 192, 122) $Transfer = GUICtrlCreateButton("Transfer", 400, 552, 67, 41, $WS_GROUP) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $FolderList = GUICtrlCreateTreeView(8, 72, 461, 475, BitOR($TVS_HASBUTTONS,$TVS_HASLINES,$TVS_LINESATROOT,$TVS_DISABLEDRAGDROP,$TVS_SHOWSELALWAYS,$TVS_CHECKBOXES,$TVS_FULLROWSELECT,$WS_GROUP,$WS_TABSTOP,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER)) $InfoLabel = GUICtrlCreateLabel("Transfer folders below to:", 8, 8, 182, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $UFolder = GUICtrlCreateInput(@UserName, 160, 32, 113, 21) $ParentValue = IniRead( "C:\" & @UserName & "_Lockdown.ini", "Config", "Parent", "1") $Parent = GUICtrlCreateLabel($ParentValue, 16, 32, 142, 24, $SS_RIGHT) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $SubFolderValue = IniRead( "C:\" & @UserName & "_Lockdown.ini", "Config", "SubFolder", "1") $SubFolder = GUICtrlCreateLabel($SubFolderValue, 288, 32, 98, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $FolderListValue = IniRead( "C:\" & @UserName & "_Lockdown.ini", "Config", "Directory", "1") $FileList=_FileListToArray($FolderListValue, "*") Dim $FolderItem[999] For $i = 0 To $FileList[0] $filename = $FileList[$i] $FolderItem[$i] = GUICtrlCreateTreeViewItem($filename , $FolderList) Next $Progress = GUICtrlCreateProgress(16, 560, 374, 25) $Open = GUICtrlCreateButton("Open", 400, 32, 67, 25, $WS_GROUP) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Open $UFolderValue = GUICtrlRead ($UFolder) $BrowseTo = $ParentValue & $UFolderValue & $SubFolderValue Run("explorer /e, " & '"' & $BrowseTo & '"') Case $Transfer $UFolderValue = GUICtrlRead ($UFolder) $Destination = $ParentValue & $UFolderValue & $SubFolderValue #######TRYING TO COPY EACH CHECKED FILE FROM EACH CHECKED FILE LOCATION TO THE $Destination######## EndSwitch WEnd
And just so it's easy to use. Here's the program that is used to create the INI file. (Note, the close button doesn't work and I'm trying to figure that out too.)
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form=C:\Documents and Settings\dhand\Desktop\koda\Forms\TFATransferSetup.kxf $FBMCTransferSetup = GUICreate("FBMC Lockdown Transfer Setup", 361, 218, 203, 190) $ParentFolder = GUICtrlCreateInput("U:\", 144, 40, 193, 21) $SubFolder = GUICtrlCreateInput("\Foo\Bar\", 144, 72, 193, 21) $UserName = GUICtrlCreateInput("User Name", 144, 136, 193, 21) $ParentFolderLabel = GUICtrlCreateLabel("Parent Folder", 32, 40, 100, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $SubFolderLabel = GUICtrlCreateLabel("Sub Folder", 48, 72, 82, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Title = GUICtrlCreateLabel("Configure Transfer utility INI File", 48, 0, 268, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $UserNameLabel = GUICtrlCreateLabel("Setup for", 64, 136, 70, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $CreateINI = GUICtrlCreateButton("Create INI in User's Profile Folder", 152, 168, 179, 25, $WS_GROUP) GUICtrlSetOnEvent(-1, "CreateINIClick") $Directory = GUICtrlCreateInput("C:\Foo\Bar\", 144, 104, 193, 21) $DirectoryLabel = GUICtrlCreateLabel("Directory to List", 16, 104, 114, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 Sleep(100) WEnd Func CreateINIClick() $ParentFolderValue = GUICtrlRead ($ParentFolder) $DirectoryValue = GUICtrlRead ($Directory) $SubFolderValue = GUICtrlRead ($SubFolder) $UserNameValue = GUICtrlRead ($UserName) $Path = "C:\" & $UserNameValue & "_Lockdown.ini" IniWrite ( $Path, "Config", "Parent", $ParentFolderValue) IniWrite ( $Path, "Config", "SubFolder", $SubFolderValue) IniWrite ( $Path, "Config", "Directory", $DirectoryValue) IniWrite ( $Path, "Config", "Username", $UserNameValue) MsgBox(0,"Succes", "Created " & $Path) EndFunc
MultiQuote
