Import MaxGui.Drivers

SuperStrict

Local window:TGadget

window=CreateWindow("My Window",40,40,320,240,Null,WINDOW_TITLEBAR|WINDOW_ACCEPTFILES)

While True
   WaitEvent

   Select EventID()
      Case EVENT_WINDOWCLOSE
         End
      
      Case EVENT_WINDOWACCEPT
         ' Array erstellen und füllen
         Local file_array:String[] = New String[0]
         While(CurrentEvent.id = EVENT_WINDOWACCEPT)
            file_array = file_array[..Len(file_array)+1]
            file_array[Len(file_array)-1] = String(EventExtra())
            PollEvent()
         Wend
   
   
         ' Ausgeben
         Print "-------------"
         For Local i:Int = 0 To Len(file_array)-1
            Print i+": "+file_array[i]
         Next
         Print "-------------"
         
   End Select
Wend