function dir$()

[gruijters]

Hello Zack, Neo, Agamemnus,

I understood that I should ignore the answers of Zack and Neo.
I had a look on the filesite, what agamemnus told. Not so easy will it be.!!
I tried the next things;

There are 4 *.txt files;
dortron.txt
aanvraag.txt
Top920_1234567654321.txt
Top123.txt which is a copy of the above.

print dir$("directory\*.txt")
print dir$
print dir$
gives only "dortron.txt" and "aanvraag.txt"
and the last dir$ gives " illegal function call " , of course.

All this above happens from QBX /PDS 7.1.

When we do it from the dosprompt, then the 4 files appears!!

Very strange isnot it?

Timo Gruijters

[na_th_an]

Not strange at all. As I told you, the problem is with long filenames. MSDOS only allowed 8 chars in the filename and 3 chars in the extension. QB is a MSDOS program, so join the dots...

[Agamemnus]

It's simple.

Just do:
PRINT short.filename$("C:\long directory\long name.txt")


For full functionality you'll need qb.bi, and these things:
'$INCLUDE: 'qb.bi'
'$DYNAMIC '(for load.filelist and load.filelist2)'for load.filelist and load.filelist2:
DIM SHARED option.amount AS INTEGER, option.list$(0)
'for load.filelist2:
DIM SHARED filetype.max AS INTEGER: filetype.max% = 10
DIM SHARED filetype.ext$(1 TO filetype.max%), option.amount2%(1 TO filetype.max%)

For just using the function short.filename$(), you only need one extra sub: exit.error().

Just copy it..

[Zack]

Oh, that's friendly...ignore our posts.

[Agamemnus]

Well you did say

Oh, *absolutely*! I forgot about how useful that is...sorry, gruijters, you can discard my suggestion, it's worthless!

:|

[Zack]

Er...Joke.

[gruijters]

Hoi Agamemnus,

I tried the prog but of course, there is something..
I got error 9 in line;
File$=getfile$(path$+filetype.1)ext$(1),&H27)in the sub;
Load.file.list2

May be because I use xbx.bi in stead of qb.b1??

Qbx.bi ;
Type RegTyp
ax
bx
cx
dx all as integer
bp
si
di
flags
ds
end type

Have you an idea of the cause of the problem?
Timo

[Agamemnus]

Is the error "subscript out of range"?

Possibly because filetype.ext() isn't DIMmed? Also could be that it isn't DIMmed as SHARED?

[gruijters]

Yes eror 9 is out of subscript.
I move the remarks from several dim statements and now there is no error but neither other output.
Only 1 out put is there; the errormessage about the stomach illness.
Do you have any other suggestions?
Timo