Problem with IsFile

[Karl Skergeth]

Hello All !

The function
" FileExists& = ISFILE(FILENAME$) "
- (as example shown in PBCC help) does not work.
It causes compiling error: DefType, TypeId os AS requiered: ISFILE

What am i doing wrong ?

Thanks for help.

Karl

[Paul Squires]

Are you sure that you're compiling using PBCC 5 ?

Also, FILENAME$ is a reserved keyword so I assume that you are replacing that "variable" with a different one or a literal (i.e. sFilename$, "temp.bas", etc...).

IsFile works correctly for me on PBWIN 9.

[José Roca]

Don't use FILENAME$. It is now a built-in function.

[Karl Skergeth]

Hello Paul , hello Jose !

FileExists& = ISFILE(TEST$) also does not work
Version of PBCC is: 5.00.0085

Karl

[José Roca]

This compiles

#COMPILE EXE

FUNCTION PBMAIN () AS LONG

   FileExists& = ISFILE(TEST$)
   WAITKEY$

END FUNCTION

There must be something else.

[Karl Skergeth]

Yes compiles
but this code failes:

#COMPILE EXE
#DIM ALL


FUNCTION PBMAIN () AS LONG

FileExists& = ISFILE(TEST$)
WAITKEY$


END FUNCTION

Why ?

[Edwin Knoppert]

Karl, if you are using PwrDev you can use: VD_IO_IsFolderOrFile(...)

[Karl Skergeth]

:laugh:

Oh yeah !

I love PwrDev !
(The best ever )

Thanks Edwin !

Should have read the manual of PwrDev before posting ...

Karl

[Hubert Brandel]

This compiles

#COMPILE EXE

FUNCTION PBMAIN () AS LONG

   FileExists& = ISFILE(TEST$)
   WAITKEY$

END FUNCTION

There must be something else.

Where do you define Test$ ?
This code is running fine here ...

#COMPILE EXE

FUNCTION PBMAIN () AS LONG
   test$ = "c:\test\xyz.txt"
   FileExists& = ISFILE(TEST$)
   ? FileExists, IsFile(test$)
   WAITKEY$

END FUNCTION

[Hubert Brandel]

Sorry I quoted the wrong message :-(

Yes compiles
but this code failes:

#COMPILE EXE
#DIM ALL


FUNCTION PBMAIN () AS LONG

FileExists& = ISFILE(TEST$)
WAITKEY$


END FUNCTION

Why ?

with #DIM ALL - wich is very usefull to provide misstyping of variables, you have to use LOCAL, STATIC or GLOBAL statements for each variable ...

#COMPILE EXE
#DIM ALL 


FUNCTION PBMAIN () AS LONG
   local test as string
   local FileExists as long
   test = "..."
   FileExists = ISFILE(TEST)
   WAITKEY$


END FUNCTION

[Karl Skergeth]

Thanks !
Karl