; -----------------------------------------------
Func _Import()
	Local $import
	Local $i=0
	Local $filesize	
	Local $k=0
	Local $skip=0
; ----------------	
	$import=FileOpenDialog("Select ini file.", $WorkingDir, "Session File (*.ini)")
	$i=FileGetSize($import) - 1
	If @error Or $i=-1 Then
		MsgBox("", "Error", "File is empty")
		Return
	EndIf
	$filesize=StringLen(StringAddCR(FileRead($import, $i))) - $i + 1
	$i=0
; ----------------	
	Local $temp[$filesize]
; ----------------
	While $i < $filesize
		$skip=0
		$k=0
		$temp[$i]=FileReadLine($import, $i + 1)
; ----------------		
		If StringInStr($temp[$i], "\") Then
		Else
			$temp[$i]=_StringInsert($temp[$i], $WorkingDir & "\", 0)
		EndIf
		While $k < $arraypos
			If $temp[$i]=$files[$k] Then
				MsgBox(0, "", '"' & $temp[$i] & '" is allready in the library')
				$skip=1
			EndIf
			$k += 1
		WEnd
		$k=0
		If $skip=0 Then
			$files[$arraypos]=$temp[$i]
			$arraypos += 1
		EndIf
		$i += 1
	WEnd
; ----------------
	_UpdateList()
EndFunc
; -----------------------------------------------