Perform checklist for directories

developer forums

DarkBASIC Discussion / Perform checklist for directories

Author

Message

Sonic 91 Software

Years of Service

User Offline

Joined: 19th Mar 2005

Location: In a Cryptic Crossworld!

Posted: 2nd Nov 2006 20:54

Link

With the above command having taken place, and I have a list of all the directories, how do I open one t any given place in the list, e.g. say I want to open the 4th one in the list, how would I do that?

"Fight the good fight of faith,
Lay hold on eternal life"
-1 Timothy 6:12

Profile PM Email Website

Grog Grueslayer

Valued Member

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 2nd Nov 2006 23:37

Link

You just need to put the files into an array so you can open them at will.

+ Code Snippet

` Make the checklist of files
perform checklist for files
` Make MaxFiles = checklist size
MaxFiles=CHECKLIST QUANTITY()

` Make an array the size of the checklist
dim File$(MaxFiles)

` Look at the first file in the checklist
find first

` Go thought the whole checklist
for t=0 to MaxFiles

 ` Get the filename and put it into the array
 File$(t)=get file name$()

 ` Get the file type   0=File (color grey)  1=Directory (color white)
 a=get file type()
 if a=0 then ink rgb(100,100,100),0 else ink rgb(255,255,255),0
 
 a$="File$("+str$(t)+") = "
 print a$+File$(t)

 ` Look at the next file in the checklist
 if t<MaxFiles then find next

next t

wait key

Profile PM Email

Server time is: 2025-05-25 22:14:02
Your offset time is: 2025-05-25 22:14:02

Sorry your browser is not supported!

DarkBASIC Discussion / Perform checklist for directories