Network problem with freebasic and freedos

[Cpcdos]

Hi
I have a big problem
I have freedos with MSClient 3.0 installed and a network drive connected (x:)
With EDIT.COM I can edit files content on x: (no problem!)
but on my dos freebasic program (.Exe) can see files on x: but i can't read content or write ! :(

I not have this problem with MSDOS 6 or 7 or DR-DOS, why?

can you help me please?
Thank's

[TJF]

Did you check privilegues yet?

What error message do you get from an input statement like:

Code: Select all

VAR r = GET( ... )
IF r THEN ?r

[Cpcdos]

I will test this code when i will get my pc later....

But if this code dosen't work, how i do it ? :/

[TJF]

But if this code dosen't work, how i do it ? :/

This depends on the error number you get ...

[Cpcdos]

He return

Code: Select all

1

the same if i delete the file

on Dr-dos or ms-dos, i not have value returned

[TJF]

1 corresponds to

Illegal function call

(see this Wiki page.) It doesn't realy help.

I guess you've to check the fbc source code to see what happens.

[dkl]

Sounds like the file handle passed to Get is invalid. What about the Open statement, does it succeed or fail? Usually it's much more interesting to check the error codes returned by Open, as opposed to Get or Put.

[Cpcdos]

Thank for your help,

With Open command, my dos program return

Code: Select all

2

File not found signal

the same if i delete the file...

[Cpcdos]

No solutions ?
a missing driver ? :(

[dkl]

I know nothing about DOS, but... what code do you use to Open the file?

[Cpcdos]

Ohf .. :(

I use

Code: Select all

r = open("texte.txt" for input as #1)
close #1
IF r THEN print r
sleep

for return error code when i open a file
he return null value when there are no problems

[TJF]

Which return value do you get from the CHDIR command befor you open the file?

[dkl]

Does it work when specifying the full path, and/or when using For Binary Access Read?

Code: Select all

var filename = curdir() + "\texte.txt"
print "opening '" + filename + "'..."

var f = freefile( )
var errnum = open(filename, for binary, access read, as #f)
print "open() = " & errnum
if errnum then
   print "failed to open file '" + filename + "'"
   end 1
end if
close #f

[Cpcdos]

I have tested with VirtualBox + FreeDos, i have the same error

so i have this :


I have been verity if i have previleges, and is Ok ! (on DR-DOS ou MS-DOS i not have this problem)

A solution ? :/

[dkl]

It can be opened after it was deleted? That's really weird, as if somewhere internally the error checking logic is inverted...