QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: badger on October 07, 2020, 02:55:25 pm

Title: getting path on found using mkdir
Post by: badger on October 07, 2020, 02:55:25 pm

Hello

i was wonder why the following code does not create the directory.

Badger

iflag is an integer

Code: QB64: [Select]

1. iflag = _DIREXISTS("c:\program files\jbridal\data")
2.  
3. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data"
4.  

Title: Re: getting path on found using mkdir
Post by: SMcNeill on October 07, 2020, 03:15:31 pm

Do you need to MKDIR “c:\program files\jbridal” first?

Title: Re: getting path on found using mkdir
Post by: badger on October 07, 2020, 03:23:07 pm

SMcNeill

here is the whole module i guess i should have posted this in the first place sorry

but jbridal does exists program will end if not there.

Code: QB64: [Select]

1.  
2. dircheck:
3. SELECT CASE _DIREXISTS("c:\program files\jbridal")
4.         CASE -1:
5.                 idirflag = -1
6.         CASE 0:
7.                 idirflag = 0
8. END SELECT
9.  
10. IF idirflag = 0 THEN
11.         BEEP
12.         CLS
13.         LOCATE 12, 27
14.         PRINT "Home Director Does not Exists"
15.         LOCATE 13, 23: PRINT "Please Create c:\program files\jbridal"
16.         LOCATE 14, 30: PRINT "And Rerun The program"
17.         LOCATE 16, 32: PRINT "Enter to continue"
18.         LINE INPUT st
19.         CLOSE
20.         END
21. END IF
22.  
23. iflag = _DIREXISTS("c:\program files\jbridal\data")
24. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data"
25.  
26. iflag = _DIREXISTS("c:\program files\jbridal\data\custdesc")
27. IF iflag = 0 THEN MKDIR "c:\program file\jbridal\data\custdesc"
28.  
29. iflag = _DIREXISTS("c:\program files\jbridal\data\invdesc")
30. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data\invdesc"
31.  
32. iflag = _DIREXISTS("c:\program files\jbridal\data\posdesc")
33.  
34. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data\posdesc"
35.  
36. RETURN
37.  

Title: Re: getting path on found using mkdir
Post by: badger on October 07, 2020, 03:45:27 pm

SMneil

I modified what i posted here is the modified module

Badger

Code: QB64: [Select]

1. dircheck:
2. SELECT CASE _DIREXISTS("c:\program files\jbridal")
3.         CASE -1:
4.                 GOTO dirchk1
5.         CASE 0:
6.                 BEEP
7.                 CLS
8.                 LOCATE 12, 27
9.                 PRINT "Home Director Does not Exists"
10.                 LOCATE 13, 23: PRINT "Please Create c:\program files\jbridal"
11.                 LOCATE 14, 30: PRINT "And Rerun The program"
12.                 LOCATE 16, 32: PRINT "Enter to continue"
13.                 LINE INPUT st
14.                 CLOSE
15. END SELECT
16.  
17. dirchk1:
18.  
19. iflag = _DIREXISTS("c:\program files\jbridal\data")
20. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data"
21.  
22. iflag = _DIREXISTS("c:\program files\jbridal\data\db")
23. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data\db"
24.  
25. iflag = _DIREXISTS("c:\program files\jbridal\data\custdesc")
26. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data\custdesc"
27.  
28. iflag = _DIREXISTS("c:\program files\jbridal\data\invdesc")
29. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data\invdesc"
30.  
31. iflag = _DIREXISTS("c:\program files\jbridal\data\posdesc")
32. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data\posdesc"
33. RETURN
34.  
35.  

Title: Re: getting path on found using mkdir
Post by: bplus on October 07, 2020, 04:07:06 pm

Quote from: badger on October 07, 2020, 02:55:25 pm

Hello

i was wonder why the following code does not create the directory.

Badger

iflag is an integer

Code: QB64: [Select]

1. iflag = _DIREXISTS("c:\program files\jbridal\data")
2.  
3. IF iflag = 0 THEN MKDIR "c:\program files\jbridal\data"
4.  

Windows has some new rules about access to your own dang computer ie no access allowed to Program files, at least through QB64 to make a directory.

Try this to get the working directory you are allowed access:

Code: QB64: [Select]

1. _CLIPBOARD$ = _CWD$ 'sto current directory into clipboard
2.  

Paste into IDE and make a directory off that. I did that after not being allowed access c:\program files to add bplus folder through QB64.

Title: Re: getting path on found using mkdir
Post by: SMcNeill on October 07, 2020, 04:11:59 pm

Or use C:/ProgramData/   That’s where most read/write data access is stored for programs usually. 

Title: Re: getting path on found using mkdir
Post by: badger on October 07, 2020, 04:24:18 pm

SMcNeill

thanks i will try all to see what i can get done

Badger

Title: Re: getting path on found using mkdir
Post by: badger on October 07, 2020, 04:33:52 pm

SMcNeill

something i was doing wrong. I had to move qb64 to the c:\program files\jbridal directory then it work fine anc created all the directories i needed..   but i had to run qb64 in admin mode

Badger

Title: Re: getting path on found using mkdir
Post by: Pete on October 07, 2020, 06:01:55 pm

I would NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER put any of my big programs in the Windows program files folder. I always name my project then I make a folder on my hard drive using that name.

Why? So some dumb-ASCII Windows Update is less likely to mess them up if such an update were to mess with Windows folders. Also, to avoid running as admin, etc., or any other restrictions.

Pete

Title: Re: getting path on found using mkdir
Post by: SMcNeill on October 07, 2020, 06:09:43 pm

Quote from: Pete on October 07, 2020, 06:01:55 pm

I would NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER, NEVER put any of my big programs in the Windows program files folder. I always name my project then I make a folder on my hard drive using that name.

Why? So some dumb-ASCII Windows Update is less likely to mess them up if such an update were to mess with Windows folders. Also, to avoid running as admin, etc., or any other restrictions.

Pete

+1

Windows has a set structure to it.  Program Files isn’t the place to be read/writing to.  Use ProgramData or User/AppData instead.  You’ll think yourself later, with all the issues from folder permissions you won’t be having.

Title: Re: getting path on found using mkdir
Post by: badger on October 08, 2020, 02:00:39 pm

Hello

I think i get the messages LMBO. I moved it all to my home directory c:\users\sureshot\jbridal.

here is a question is there away to bring in the present path so the program knows what the home directory is called

Badger

Title: Re: getting path on found using mkdir
Post by: badger on October 08, 2020, 02:03:32 pm

Hello

after some reading i think _csd$ is my cause thanks guys

Badger

Text Only | Text with Attachments