LoadDir Problem ?

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.

Filax

Problem solved, i'm stupid sometime...

SendTheFileList("C:/fILOU/")
'SendTheFileList(CurrentDir$())



' ------------------
' Send the file list
' ------------------
Function SendTheFileList(Root:String)
	Local dir:String[]= LoadDir(Root)
	Local Number:Int=0

	Local Num:Int=Len(dir)

	For Local i:Int = 0 To Num-1
		If FileType(Root+dir[i]) = 1 Then
			Number=Number+1
		EndIf
	Next
	
	For Local o:Int = 0 Until Len(dir)
		If FileType(Root+dir[o]) = 1 Then
			Print dir[o]
		EndIf
	Next
EndFunction