Masen Posted October 24, 2016 Share Posted October 24, 2016 (edited) Hey need some help on this one. im trying to get a list of files placed into the window of this script. and iv been at this for days now been all over google and here cant find anything. need some help here. probaly right under my nose expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=c:\users\masen\desktop\workshop interface\folders.kxf $Masen_1 = GUICreate("Masen's Headquarter", 777, 574, 192, 124) GUISetCursor (0) GUISetBkColor(0xFF0000) $Home = GUICtrlCreateButton("Home", 112, 64, 75, 25, $WS_GROUP) $Company = GUICtrlCreateButton("Company", 192, 64, 75, 25, $WS_GROUP) $Music = GUICtrlCreateButton("Music", 432, 64, 75, 25, $WS_GROUP) $Pictures = GUICtrlCreateButton("Pictures", 352, 64, 75, 25, $WS_GROUP) $Website = GUICtrlCreateButton("Website", 272, 64, 75, 25, $WS_GROUP) $Admin = GUICtrlCreateButton("Admin", 512, 64, 75, 25, $WS_GROUP) $MHQ = GUICtrlCreateLabel("Masen's Headquarter Interface", 112, 8, 577, 50) GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) GUICtrlSetBkColor(-1, 0x000000) $Open = GUICtrlCreateButton("Open", 80, 520, 75, 25, $WS_GROUP) $SD1 = GUICtrlCreatePic("C:\Users\masen\Desktop\Workshop Interface\Prototype Images\Space Divider1.bmp", 32, 112, 716, 12, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Folder = GUICtrlCreateLabel("Folders", 304, 128, 127, 39) GUICtrlSetFont(-1, 22, 800, 0, "MS Reference Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Folders = GUICtrlCreateButton("Folders", 592, 64, 75, 25, $WS_GROUP) $List1 = GUICtrlCreateList("", 24, 184, 713, 318) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $var While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $List1 List1() EndSwitch WEnd Func List1 () ; List all the files and folders in the desktop directory using the default parameters and return the full path. Local $aFileList = _FileListToArray(@DesktopDir, Default, Default, True) If @error = 1 Then MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.") Exit EndIf If @error = 4 Then MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.") Exit EndIf ; Display the results returned by _FileListToArray. _ArrayDisplay($aFileList, "$aFileList") EndFunc ;==>Example Edited October 25, 2016 by Melba23 Added code tags Link to comment Share on other sites More sharing options...
Jewtus Posted October 24, 2016 Share Posted October 24, 2016 Try this: expandcollapse popup#include <File.au3> #include <Array.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Masen_1 = GUICreate("Masen's Headquarter", 777, 574, 192, 124) GUISetCursor (0) GUISetBkColor(0xFF0000) $Home = GUICtrlCreateButton("Home", 112, 64, 75, 25, $WS_GROUP) $Company = GUICtrlCreateButton("Company", 192, 64, 75, 25, $WS_GROUP) $Music = GUICtrlCreateButton("Music", 432, 64, 75, 25, $WS_GROUP) $Pictures = GUICtrlCreateButton("Pictures", 352, 64, 75, 25, $WS_GROUP) $Website = GUICtrlCreateButton("Website", 272, 64, 75, 25, $WS_GROUP) $Admin = GUICtrlCreateButton("Admin", 512, 64, 75, 25, $WS_GROUP) $MHQ = GUICtrlCreateLabel("Masen's Headquarter Interface", 112, 8, 577, 50) GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) GUICtrlSetBkColor(-1, 0x000000) $Open = GUICtrlCreateButton("Open", 80, 520, 75, 25, $WS_GROUP) $SD1 = GUICtrlCreatePic("C:\Users\masen\Desktop\Workshop Interface\Prototype Images\Space Divider1.bmp", 32, 112, 716, 12, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Folder = GUICtrlCreateLabel("Folders", 304, 128, 127, 39) GUICtrlSetFont(-1, 22, 800, 0, "MS Reference Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Folders = GUICtrlCreateButton("Folders", 592, 64, 75, 25, $WS_GROUP) $List1 = GUICtrlCreateList("", 24, 184, 713, 318) $ListValues=List1() for $x=1 to UBound($ListValues)-1 _GUICtrlListBox_AddFile($List1,$ListValues[$x]) Next GUISetState(@SW_SHOW) Global $var While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func List1 () ; List all the files and folders in the desktop directory using the default parameters and return the full path. Local $aFileList = _FileListToArray(@DesktopDir, Default, Default, True) _ArrayDisplay($aFileList) If @error = 1 Then MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.") Exit EndIf If @error = 4 Then MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.") Exit EndIf Return $aFileList EndFunc ;==>Example Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted October 25, 2016 Moderators Share Posted October 25, 2016 Masen, Please give your threads sensible titles - both of yours read "Hey need some help here" - as everyone posting here needs help. And when you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Masen Posted October 28, 2016 Author Share Posted October 28, 2016 ok srry about that. On 10/24/2016 at 4:05 PM, Jewtus said: Try this: expandcollapse popup#include <File.au3> #include <Array.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Masen_1 = GUICreate("Masen's Headquarter", 777, 574, 192, 124) GUISetCursor (0) GUISetBkColor(0xFF0000) $Home = GUICtrlCreateButton("Home", 112, 64, 75, 25, $WS_GROUP) $Company = GUICtrlCreateButton("Company", 192, 64, 75, 25, $WS_GROUP) $Music = GUICtrlCreateButton("Music", 432, 64, 75, 25, $WS_GROUP) $Pictures = GUICtrlCreateButton("Pictures", 352, 64, 75, 25, $WS_GROUP) $Website = GUICtrlCreateButton("Website", 272, 64, 75, 25, $WS_GROUP) $Admin = GUICtrlCreateButton("Admin", 512, 64, 75, 25, $WS_GROUP) $MHQ = GUICtrlCreateLabel("Masen's Headquarter Interface", 112, 8, 577, 50) GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) GUICtrlSetBkColor(-1, 0x000000) $Open = GUICtrlCreateButton("Open", 80, 520, 75, 25, $WS_GROUP) $SD1 = GUICtrlCreatePic("C:\Users\masen\Desktop\Workshop Interface\Prototype Images\Space Divider1.bmp", 32, 112, 716, 12, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Folder = GUICtrlCreateLabel("Folders", 304, 128, 127, 39) GUICtrlSetFont(-1, 22, 800, 0, "MS Reference Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Folders = GUICtrlCreateButton("Folders", 592, 64, 75, 25, $WS_GROUP) $List1 = GUICtrlCreateList("", 24, 184, 713, 318) $ListValues=List1() for $x=1 to UBound($ListValues)-1 _GUICtrlListBox_AddFile($List1,$ListValues[$x]) Next GUISetState(@SW_SHOW) Global $var While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func List1 () ; List all the files and folders in the desktop directory using the default parameters and return the full path. Local $aFileList = _FileListToArray(@DesktopDir, Default, Default, True) _ArrayDisplay($aFileList) If @error = 1 Then MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.") Exit EndIf If @error = 4 Then MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.") Exit EndIf Return $aFileList EndFunc ;==>Example this didnt work Jewtus Link to comment Share on other sites More sharing options...
Jewtus Posted October 28, 2016 Share Posted October 28, 2016 Can you describe what happens? Does nothing show up in the Array? Do you get error messages? Link to comment Share on other sites More sharing options...
Masen Posted October 28, 2016 Author Share Posted October 28, 2016 (edited) yea geting 2 errors below Local $aFileList = _FileListToArray(@DesktopDir, Default, Default, True) Error:_FileListToArry():Undefined Fuction. _ArrayDisplay($aFileList) Error: _ArrayDisplay(): undefined function. Edited October 28, 2016 by Masen Link to comment Share on other sites More sharing options...
BrewManNH Posted October 28, 2016 Share Posted October 28, 2016 You probably didn't #include the correct UDFs in your script. If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag GudeHow to ask questions the smart way! I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from. Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays. - ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script. - Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label. - _FileGetProperty - Retrieve the properties of a file - SciTE Toolbar - A toolbar demo for use with the SciTE editor - GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI. - Latin Square password generator Link to comment Share on other sites More sharing options...
Masen Posted October 28, 2016 Author Share Posted October 28, 2016 thx appreciate it 9 minutes ago, BrewManNH said: You probably didn't #include the correct UDFs in your script. ur right 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