Folder exist

jensthomsen · 2007-12-09

Hi
I need to check if a certain folder exist - that is, does C:\temp\MyFolder\ exist. What would be the easiest way of doing this?
Jens

ara3n · 2007-12-09

Directory is record type and subtype is File

clear(Directory);
Directory.setrange(Path,'C:\temp\');
FolderExists := Directory.findfirst;

jensthomsen · 2007-12-10

Hi ara3n
Thats not quite good enough. If the folder doesn't exist, you will still get an error...

rvduuren · 2007-12-10

ara3n wrote:
Directory is record type and subtype is File
clear(Directory);
Directory.setrange(Path,'C:\temp\');
FolderExists := Directory.findfirst;

Hello,
I did not get an error using SETFILTER..

Directory.SETFILTER(Path,'C:\'); // Works better than CLEAR :)
IF Directory.findfirst THEN; // Works better than CLEAR :)
Directory.SETFILTER(Path,'C:\temp\');
Directory.SETRANGE("Is a file",false);
MESSAGE('%1',Directory.findfirst);

Hope this helpes you..

jensthomsen · 2007-12-10

Hi rvduuren
As far as I understand, your check is if there exists subfolders in the folder c:\temp...? I want to check if c:\temp\ exists...

rvduuren · 2007-12-10

jensthomsen wrote:

Hi rvduuren
As far as I understand, your check is if there exists subfolders in the folder c:\temp...? I want to check if c:\temp\ exists...

Hello Jens,

I'm not checking any subfolders with above code, just if c:\temp exists. But you can also use FileSystemObject:

Globals:Folder - Automation - 'Windows Script Host Object Model'.FileSystemObject

create(Folder);
message('%1',Folder.FolderExists('c:\temp'));
clear(Folder);

ajhvdb · 2007-12-10

if EXISTS(C:\nul') then ... should work too.

ara3n · 2007-12-10

ajhvdb wrote:

if EXISTS(C:\nul') then ... should work too.

This won't work. Exists only is used for files not folder.

ajhvdb · 2007-12-10

:shock: Did you try it? or did you test it?

ara3n · 2007-12-10

What is the difference?

DenSter · 2007-12-10

I tried it, and I also tested it

Doesn't work, it always returns FALSE

ajhvdb · 2007-12-10

I'm using it in production and it does work...it was working in the days of MSDOS but maybe in other countries not.

create a button and put this in the push event:

message('%1', EXISTS('C:\WINDOWS\nul'));
message('%1', EXISTS('D:\nul'));
message('%1', EXISTS('X:\WINDOWS\nul'));
message('%1', EXISTS('D:\DATA\nul'));

Run it and if you have a

drive and

\DATA, it answers:
Yes
Yes
No
Yes

DenSter · 2007-12-10

OBJECT Form 60000 Exist
{
  OBJECT-PROPERTIES
  {
    Date=12/10/07;
    Time=[ 1:30:23 PM];
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    Width=2640;
    Height=990;
  }
  CONTROLS
  {
    { 1000000000;CommandButton;220;220;2200;550 ;CaptionML=ENU=Click;
                                                 OnPush=BEGIN
                                                          MESSAGE('%1',EXISTS('C:\Windows\nul'));
                                                          MESSAGE('%1',EXISTS('C:\Dummy\nul'));
                                                        END;
                                                         }
  }
  CODE
  {

    BEGIN
    END.
  }
}

The part that makes this work is "nul", with just one 'l', at the end of the folder path

<edit>modified post with updated information</edit>

DenSter · 2007-12-10

<edit/>

ara3n · 2007-12-11

that is some undocumented feature, I hope will be supported in 6.0?

Since the exists will run in service tier .net dll.

Learning something new every day.

NaviDev · 2007-12-11

You can use the automation 'Microsoft Scripting Runtime'.FileSystemObject. Use the function FolderExists. Just pass the path and it will return a boolean value weather the certain folder exists or not.

Folder exist

Comments

Categories