i am unable to create a folder

[xaver13]

Hello, please have you any idea why

Code: Pascal  [Select][+][-]

1.  
2.   myHome := GetUserDir();
3.   myHome := myHome +'Kalendar1' ;
4.   if not DirectoryExists(myHome)  then ForceDirectories('myHome');
5.   if DirectoryExists(myHome)  then ShowMessage( 'Folder exists') else    ShowMessage( 'Folder '+myhome+' not exists') ;      

always ends with Folder not exists? Thank you very much for help.

[molly]

replace

Code: [Select]

if not DirectoryExists(myHome)  then ForceDirectories('myHome');
with

Code: [Select]

if not DirectoryExists(myHome)  then ForceDirectories(myHome);
And try again.

Right now your force is on current directory (wherever that might be, and for which you might not have enough rights).

[xaver13]

I must be blind! 

Thank, you Molly.