if folder not exist, create a new

cure

Hi

I'm looking for a function witch can see, if the folder all ready exist. If not, the function has to create this order.

Can you help me?

regards
curdin

Albertvh

Hi Cure

set a variable as follows
Name DataType Subtype Length
FileSystem Automation 'Microsoft Scripting Runtime'.FileSystemObject

code to check if exists

IF ISCLEAR(FileSystem) THEN
CREATE(FileSystem);

IF NOT FileSystem.FolderExists(Foldername) THEN
FileSystem.CreateFolder(Foldername);

Hope this gets you going :P

cure

Hi Albertvh

Everythings works fine, but the program has a problem to create the New Folder. Manually I've permission to create a folder.

The ErrorMessage looks like that

An exeption was raised in method CreateFolder. The OLE control or Automation server has returned error (HRESULT) -2147352567. The component did not provide the exception description.

Whats wrong? The check, if the folder exists work well. Only create a new folder give me some problems. Is there any other way to create an folder??

Thank you very much

fl

The mentioned code might give a problem if you want to create several levels at once. Also in Windows/Dos you can't do this.

example:
if is missing c:\level1\level2\level3

then create c:\level1\level\level3 will give a problem if c:\level1\level does not exists.

You need to do that check in a loop

test if c:\ exists
if so
test if c:\level1 exists
if not create
test if c:\level1\level2 exists
if not create
test if c:\level1\level2\level3 exists
if not create
Then this will work (ALLWAYS)

Jascha_Vincke

Thank you for the information about the Automation Server.

But I don't like to step through the folder structure to create several subfolders.

Here is my solution:

CheckLocalFolder(Folder : Text[250])

IF ISCLEAR(FileSysObj) THEN
  CREATE(FileSysObj);
IF NOT FileSysObj.FolderExists(Folder) THEN BEGIN
  BatchFileName := GeneralMgt.AppendBacksl(ENVIRON('tmp'))+'nav_mkdir_batch.cmd';
  IF EXISTS(BatchFileName) THEN BEGIN
    ERASE(BatchFileName);
    YIELD;
  END;
  BatchFile.CREATE(BatchFileName);
  BatchFile.WRITE('mkdir ' + Folder);
  BatchFile.CLOSE;
  YIELD;
  SHELL(BatchFileName);
  ERASE(BatchFileName);
END;

Works fine :-)


For the sake of completeness here the used AppendBacksl procedure:
AppendBacksl(_Input : Text[249]) : Text[250]

// Check for ending backslash of folder name
IF _Input = '' THEN
  EXIT('\');

IF NOT (COPYSTR(_Input,STRLEN(_Input)) = '\') THEN
  EXIT(_Input + '\');

hth

shraddha_marodkar

Hi,

Jascha Vincke

i used ur code to create a folder but variable used
GeneralMgt.AppendBacksl(ENVIRON('tmp'))+'nav_mkdir_batch.cmd';
what is that?
Any codeunit or what?
Plz reply

Jascha_Vincke

Hi shraddha,


this is Codeunit 11501 and the method AppendBacksl() is a modified copy of the existing method CheckFolderName(). CheckFolderName() only display a Message. The new function appends a backslash if the string does not contain a backslash. This is more useful instead of a message i think ;-)


hth

Jascha
//edit: We use a german NAV database. I don't know if u have this Codeunit (11501) in your local version. If you look at my previous post you'll see the code for the method AppendBacksl() to add it to an object you prefer.

shraddha_marodkar

Hi,

codeunit 11501 not exist in my DB



#-o

Jascha_Vincke

After years my little script stopped working some day because computers compute way more faster as in the days I created my CheckLocalFolder() method.

So here comes the update:

Add SLEEP(250); two times!
Before SHELL(BatchFileName);
And before ERASE(BatchFileName);.

waaa *sleeeeep* \:D/