I am new to using AutoIt and am trying to create a program that transfers the selected files from a predefined location (Defined in an INI file) to a network location (also defined in the INI file)
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