#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>
#include <Array.au3>

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 289, 152, 554, 246)
$Label1 = GUICtrlCreateLabel("File Location", 16, 8, 64, 17)
$Input1 = GUICtrlCreateInput("", 16, 32, 161, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Button1 = GUICtrlCreateButton("Open File", 192, 32, 83, 25)
$Button2 = GUICtrlCreateButton("Lets Do This", 16, 72, 259, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()

	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			$pLocation = FileOpenDialog("locate playlist", "C:\Users\" & @UserName &"\Music\Playlists", "playlist(*.wpl)")
			GUICtrlSetData($Input1, $pLocation)

		Case $Button2
			$pLocation = GUICtrlRead($Input1)
			If FileExists($pLocation) Then
				$fOpen = FileOpen($pLocation)
				$fReadArray = FileReadToArray($fOpen)
				FileClose($fOpen)
				$fArray = _doStuff($fReadArray)
				$dir = @ScriptDir & "/the goods"
				DirCreate($dir)
				For $i = 0 To UBound($fArray)
					FileCopy($fArray[$i], $dir, $FC_OVERWRITE )
				Next

			Else
				MsgBox(0, "Error", "File location doesnt exist")
			EndIf

	EndSwitch
WEnd



Func _doStuff(ByRef $iArray)
	If IsArray($iArray) Then
		Dim $cArray[0] = []
		For $i = 1 To UBound($iArray) - 1
			If StringInStr($iArray[$i], "<media src=") <> 0 Then
				Local $str = StringSplit($iArray[$i], '"', $STR_NOCOUNT)
				_ArrayAdd($cArray, $str[1])
			EndIf
		Next
		Return $cArray
	Else
		MsgBox(0, "Error 2", "Not an array")
		Return 0
	EndIf
EndFunc