Creating a Folder if it doesn't already exist?

erugalatha

Hello,

How do I check if a folder exists and if it doesn't create it?

Currently I was trying:

IF NOT CREATE(fso,FALSE) THEN EXIT;
XMLFilePath := 'C:\Users\XMLDPS\SampleFiles\';
ok := fso.FolderExists(XMLFilePath);
CLEAR(fso);

but how do I then create the folder if it's not there?

Savatage

there are a few posts if you search for CREATE FOLDER.

Here's one
http://www.mibuso.com/forum/viewtopic.php?t=11530

Waldo

And here are some solutions to browse for a folder, if you might want to incorporate this into your solution:
http://www.mibuso.com/dl.asp?FileID=541&Type=file
http://www.mibuso.com/dlinfo.asp?FileID=169