[SOLVED] TSaveDialog

[Zvoni]

It's getting weirder and weirder

Minimal code (Form, Button)

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

1. Uses LCLIntf;
2. procedure TForm1.Button1Click(Sender: TObject);
3. begin
4.   OpenDocument('C:\Users\zvoni\OneDrive - CompanyName Group\Dokumente\5009.xlsx');
5. end;      

Works......
*confused*

[Zvoni]

"... add/remove ..."

Something like this:

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

1. SaveDialog1.Options := SaveDialog1.Options - [ofFileMustExist, ofOverwritePrompt, ofAutoPreview] + [ofNoValidate, ofNoTestFileCreate];

Nope.
Still getting EFCreateError (see screenshot)

I'm even thinking it might be a Company-Policy in Windows Defender...*sigh*
Something like "No Saving from unknown Software on Sharepoint" or something like that

[Xenno]

Something like "No Saving from unknown Software on Sharepoint" or something like that

Exactly. Check the folder is folder *cloud* or local using the code above. When the folder is not local, give message and cancel.

[Zvoni]

Something like "No Saving from unknown Software on Sharepoint" or something like that

Exactly. Check the folder is folder or local using the code above. When the folder is not local, give message and cancel.

But i AM using the "local" Folder
"c:\Users\Zvoni\OneDrive - CompanyName\Dokuments\5009.xlsx", and it fails with EFCreateError, even without a SaveDialog, just passing the FileName to my FileStream for saving
and that folder definitely exists, since i tested it with a testfile for Reading (!!)

[Xenno]

Last check: Can you copy a file into that folder using the same account?

It could be related to permission, OneDrive synchronization, or company policy issues.

[Zvoni]

Thx to everyone who tried to help

I've found the culprit.

It's Windows-Defender
In the Ransomware-Protection, the 3 OneDrive-Folders i was testing with (Documents, Pictures, Desktop) are protected.
Could even see it in the Access-History.

Though i have to say, the Error-Message sent us on a merry chase....

*sigh*....now i have to negotiate with IT-Department....
this is going to be fun....