Ok i have this function which is:
Function dir_scan$(folder$)
dc=1
myDir=ReadDir(folder$)
Repeat
; Assign the next entry in the folder to file$
file$=NextFile$(myDir)
; If there isn't another one, let's exit this loop
If file$="" Then Exit
; Use FileType to determine if it is a folder (value 2) or a file and print results
If FileType(folder$+"\"+file$) = 2 And file$<>"." And file$<>".." Then
DB_Dir$(dc)=file$
dc=dc+1
EndIf
Forever
browse_dir_dir_count=dc-1
End Function
Which scans the given folder in the function variable and if the item it finds is a folder adds it to the DB_Dir$ list, however for some reason this function can only be run once, and after that it doesn't update the array, Why?
|