Show files in C drive in textarea
BlitzPlus Forums/BlitzPlus Beginners Area/Show files in C drive in textarea
| ||
I'm making a program where I need to show all of the files in the C drive in a text area, and I can't think of how to do it. I have the Window, a progress bar, and the textarea set up, I just don't see how to show all of the files in the C drive in the textarea. Thanks in advance. |
| ||
app=CreateWindow("filez o_O",0,0,640,480) txt=CreateTextArea(4,4,512,320,app,2) s$=Readfiles$("c:\") SetGadgetText txt,s$ Repeat WaitEvent() If EventID()=$803 quit=True Until quit End Function Readfiles$(where$) myDir=ReadDir(where$) Repeat file$=NextFile$(myDir) If file$="" done=True Else If c s$=s$+Chr$(13)+Chr$(10) s$=s$+file$ EndIf c=c+1 Until done CloseDir myDir Return s$ End Function |
| ||
Thanks a lot CS_TBL. I'm going to have fun with this. >:D |