Skrip Posted December 15, 2006 Share Posted December 15, 2006 I'm drawing a blank here, I can't remember how to do this How do you get all the files of a specific file type ( .Diablo II Character (<--File type)) then have them listed in a GUI? [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
The Kandie Man Posted December 15, 2006 Share Posted December 15, 2006 (edited) Try doing something like this: $a_FilePaths = _FileListToArray($path,"*.Diablo II Character",1) For $intcount = 1 to $a_FilePaths[0] GUICtrlSetData($edit,$a_FilePaths[$intcount] & @CRLF & GUICtrlRead($edit)) Next Edited December 15, 2006 by The Kandie Man "So man has sown the wind and reaped the world. Perhaps in the next few hours there will no remembrance of the past and no hope for the future that might have been." & _"All the works of man will be consumed in the great fire after which he was created." & _"And if there is a future for man, insensitive as he is, proud and defiant in his pursuit of power, let him resolve to live it lovingly, for he knows well how to do so." & _"Then he may say once more, 'Truly the light is sweet, and what a pleasant thing it is for the eyes to see the sun.'" - The Day the Earth Caught Fire Link to comment Share on other sites More sharing options...
Skrip Posted December 15, 2006 Author Share Posted December 15, 2006 (27) : ==> Subscript used with non-Array variable.: For $intcount = 1 to $a_FilePaths[0] For $intcount = 1 to $a_FilePaths^ ERROR I am bad with arrays, how do I fix this? [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
The Kandie Man Posted December 15, 2006 Share Posted December 15, 2006 (edited) Here, this has a bunch of error handling now: $a_FilePaths = _FileListToArray($path,"*.Diablo II Character",1) If @Error Then Msgbox(0,"Error Code:","Error code: "& @Error & " was returned. Please check the help file to see why _FileListToArray Failed.") Exit Endif If IsArray($a_FilePaths) Then For $intcount = 1 to $a_FilePaths[0] GUICtrlSetData($edit,$a_FilePaths[$intcount] & @CRLF & GUICtrlRead($edit)) Next Else Msgbox(0,"Error",'"$a_FilePaths" is not an array. Please make srue that the _FileListToArray returned an array correctly.') Endif Edited December 15, 2006 by The Kandie Man "So man has sown the wind and reaped the world. Perhaps in the next few hours there will no remembrance of the past and no hope for the future that might have been." & _"All the works of man will be consumed in the great fire after which he was created." & _"And if there is a future for man, insensitive as he is, proud and defiant in his pursuit of power, let him resolve to live it lovingly, for he knows well how to do so." & _"Then he may say once more, 'Truly the light is sweet, and what a pleasant thing it is for the eyes to see the sun.'" - The Day the Earth Caught Fire 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