directoryexistsqbasicgw-basic

How to test if a directory exist in qbasic?

I'm writing a program in Qbasic. I'd like to know how to test if a folder exists.

The idea is:

IF "c:\user\basic\blablabla\" exists (?? how to programm the "exist" test?)
THEN CHDIR "c:\user\basic\blablabla\"
ELSE 
MKDIR "c:\user\basic\blablabla\"
CHDIR "c:\user\basic\blablabla\"
ENDIF

I hope i'm clear enough,

thank you very much for your suggestions !

:)

Solution

  • Try changing the directory to blablabla. If it doesn't exist, there'll be an error. Trap this error and specify an error handling routine.

    ON ERROR GOTO doesnotexist
CHDIR "c:\user\basic\blablabla\"
END

doesnotexist:
MKDIR "c:\user\basic\blablabla\"
CHDIR "c:\user\basic\blablabla\"
RESUME NEXT