Checking the directory...

[[e-mail]]

How do you get QBasic to tell you what directory you're working in? I was using SHELL and I need to know how you can find out what directory you're in, because it's always in a weird directory.

[brisray]

I was looking into this myself recently, and this is what I came up with

FileNo = FREEFILE
SHELL "dir > c:\ZFileDir.tmp"
OPEN "C:\ZFileDir.tmp" FOR INPUT ACCESS READ LOCK READ  WRITE AS FileNo
DO
       LINE INPUT #FileNo, FileInfo$
LOOP UNTIL INSTR(FileInfo$, "Directory of ") > 1
KILL "C:\ZFileDir.tmp"

What happens is this :-

Line starting SHELL gets a directory listing and puts it into the file. The top part of mine looks like this :-

Volume in drive C is BRISRAY  
Volume Serial Number is 123A-4BC3
Directory of C:\QBASIC

.            <DIR>     10/03/01  12:21a
..           <DIR>     10/03/01  12:21a
40LBS    BAS      8943 01/22/00  11:15a
ABSCALL2 BAS      3661 07/31/95   4:00p
ALTVAL   BAS       720 04/15/99  10:36a
.........
.........

The loop reads down to the line Directory of C:\QBASIC, when it exits the loop it leaves FileInfo$ as that text. You can then extract the directory information.

Ray

[[e-mail]]

Bisray,

 I like your idea but why not make it easier and instead of using:

 dir > C:\Zdirfile.txt

 Try this instead:

 cd > C:\Zthisdir.txt

(Sorry, I forgot the name of the file you used)

 That will produce a single line with the path of your current working directory.  Just open it the file, read the first line and you're done!  (Well, close the file first and *then* you're done.)

[brisray]

duh, you're quite right of course,

It was because I've been working on a file / directory dialog box for the last couple of weeks and my mind is stuck into thinking about saving the directory contents to a file so I can process it.

The finished thing can be found at members.lycos.co.uk/brisray/qbasic/qfdlog.htm

Ray

Have I mentioned to anyone here I've got a website where I put my QBasic routines? No? Well then this must be the only forum I haven't mentioned it. In fact, it must be the only place on the net I haven't mentioned it. In case you haven't stumbled across it before it's at members.lycos.co.uk/brisray/qbasic/qind.htm

If you haven't seen the self advertising I do for this site don't worry, after a couple of months you'll be sick to death of it. Do you want me to repeat the URL? I've mentioned it twice in this one posting alone, so I think I'd better give it a rest for a while.

Oh, what the hell, it at members.lycos.co.uk/brisray/qbasic/qind.htm

[Ziggi]

you can use
[glow=green,1,300]SHELL "DIR  /b/ad > c:\ZFileDir.tmp"[/glow]
that will show only the names of directorys noting alse.

---

brisray said:

I was looking into this myself recently, and this is what I came up with

FileNo = FREEFILE
SHELL "dir > c:\ZFileDir.tmp"

OPEN "C:\ZFileDir.tmp" FOR INPUT ACCESS READ LOCK READ  WRITE AS FileNo
DO
       LINE INPUT #FileNo, FileInfo$
LOOP UNTIL INSTR(FileInfo$, "Directory of ") > 1
KILL "C:\ZFileDir.tmp"

What happens is this :-

Line starting SHELL gets a directory listing and puts it into the file. The top part of mine looks like this :-

Volume in drive C is BRISRAY   <br> Volume Serial Number is 123A-4BC3
Directory of C:\QBASIC

.            <DIR>     10/03/01  12:21a
..           <DIR>     10/03/01  12:21a
40LBS    BAS      8943 01/22/00  11:15a
ABSCALL2 BAS      3661 07/31/95   4:00p
ALTVAL   BAS       720 04/15/99  10:36a
.........
.........

The loop reads down to the line Directory of C:\QBASIC, when it exits the loop it leaves FileInfo$ as that text. You can then extract the directory information.

Ray