getting path on found using mkdir

[badger]

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.  

[SMcNeill]

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

[badger]

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.  

[badger]

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.  

[bplus]

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.

[SMcNeill]

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

[badger]

SMcNeill

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

Badger

[badger]

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

[Pete]

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

[SMcNeill]

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.

[badger]

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

[badger]

Hello

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

Badger