Drag and Drop

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

SebHoll

As fredborg said, although I thought I'd mention you don't need to create a variable for the separate array of files if you are just looping through them... If I remember correctly, the (EventExtra().ToString()).Split("~n") will only be evaluated once for the loop, so will be just as fast. I.e.

SuperStrict 

Local Window:TGadget = CreateWindow("Launcher", 40, 40, 320, 240, ,WINDOW_TITLEBAR | WINDOW_RESIZABLE | WINDOW_ACCEPTFILES)

Repeat

	Select WaitEvent()
	
		Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE;End
			
		Case EVENT_WINDOWACCEPT
		
			If EventSource() = Window Then
				
				For Local strFile$ = EachIn (EventExtra().ToString()).Split("~n")
					Print "Filax Ficher: ~q" + strFile + "~q"
				Next
			    
			EndIf
						
	End Select
	
Forever