Direxists() Function

[spyrorocks]

I noteced that Autoit does not have a Direxists() function, so me and Joke758 made one.

I searched the fourms for this function and could not find it, so here it is...

Requitements: Autoit version 3

Parameters:

1. Directory to check for existance

Returns:

1 = Success

0 = Failure & Sets @error to 1

Example:

If FileExists("C:\Windows") Then
    MsgBox(4096, "", "exists.")
Else
    MsgBox(4096,"", "does not exist.")
EndIf

Actual Function:

#include <Process.au3>

func direxists($dir)
; Credits: Spyrorocks and Joke758
;=======ENJOY========
$err = _RunDOS("dir " & $dir)
if $err = 0 then 
return 1
else
SetError(1)
return 0
endif
endfunc

Small, But it works!

Edited May 6, 2006 by spyrorocks

[Jos]

I noteced that Autoit does not have a Direxists() function, so me and Joke758 made one.

I searched the fourms for this function and could not find it, so here it is...

Requitements: Autoit version 3

Parameters:

1. Directory to check for existance

Returns:

1 = Success

0 = Failure & Sets @error to 1

Example:

$dir = direxists("C:\WINDOWS")
if $dir then 
msgbox(0, "Dir Exists", "Directory Exists!")
else
msgbox(0, "Dir Exists", "Directory Does Not Exist!")
endif

Actual Function:

#include <Process.au3>

func direxists($dir)
; Credits: Spyrorocks and Joke758
;=======ENJOY========
$err = _RunDOS("dir " & $dir)
if $err = 0 then 
return 1
else
SetError(1)
return 0
endfunc

Small, But it works!

Did you test it ?

Think an EndIf is missing

This is even shorter:

func direxists($dir)
   Return FileExists($dir)
EndFunc

Edited May 6, 2006 by JdeB

[Valuater]

nice... but

If FileExists("C:\Windows") Then
    MsgBox(4096, "", "exists.")
Else
    MsgBox(4096,"", "does not exist.")
EndIf

late again... JdeB got there first

8)

Edited May 6, 2006 by Valuater

[spyrorocks]

Yah, Yah. I know it could have been done in three lines, but where is the fun in that?

[Jos]

Yah, Yah. I know it could have been done in three lines, but where is the fun in that?

Yea right, why make live easy if you can do it the difficult way....

and mine works yours doesn't

[spyrorocks]

it does too. try it. it works perfecly.

Doing things in 3 lines is no fun.

[Jos]

it does too. try it. it works perfecly.

Doing things in 3 lines is no fun.

Have you read my post? there is an EndIf missing so the function could error out....

Edited May 6, 2006 by JdeB

[Valuater]

it does too. try it. it works perfecly.

Doing things in 3 lines is no fun.

initial post...

This post has been edited by spyrorocks: Today, 12:22 PM

it does now

8)

[Jos]

K.. now run this and see if you still think your function works nice and fast:

#include <Process.au3>
$x = TimerInit()
ConsoleWrite(" t1:" & direxists1("c:\windows\system") & "   time:" & TimerDiff($x) & @LF)
$x = TimerInit()
ConsoleWrite(" t2:" & direxists2("c:\windows\system") & "   time:" & TimerDiff($x) & @LF)
;
Func direxists1($dir)
    Return FileExists($dir)
EndFunc ;==>direxists1
;
Func direxists2($dir)
; Credits: Spyrorocks and Joke759
;=======ENJOY========
    $err = _RunDOS("dir " & $dir)
    If $err = 0 Then
        Return 1
    Else
        SetError(1)
        Return 0
    EndIf
EndFunc ;==>direxists2

EDIT: Fixed return

Edited May 6, 2006 by JdeB

[Valuater]

@ spyrorocks

please note...

because of your signature with html links.. etc

when ever i am on a thread that you have posted on... my mouse-pointer has an hour-glass showing the page has not finished loading...

please fix that

8)

[spyrorocks]

I cant help your internet connection.

[RazerM]

yes but you could have courtesy and use less images/whatever. I myself do not have dialup but a lot of people do

[spyrorocks]

I have dialup and it works fine for me.

[SmOke_N]

I noteced that Autoit does not have a Direxists() function, so me and Joke758 made one.

I searched the fourms for this function and could not find it, so here it is...

Requitements: Autoit version 3

Parameters:

1. Directory to check for existance

Returns:

1 = Success

0 = Failure & Sets @error to 1

Example:

If FileExists("C:\Windows") Then
    MsgBox(4096, "", "exists.")
Else
    MsgBox(4096,"", "does not exist.")
EndIf

Actual Function:

#include <Process.au3>

func direxists($dir)
; Credits: Spyrorocks and Joke758
;=======ENJOY========
$err = _RunDOS("dir " & $dir)
if $err = 0 then 
return 1
else
SetError(1)
return 0
endif
endfunc

Small, But it works!

God, I'm so confused, why have even the 3 lines, when the function FileExists() does the same thing anyway? As your clearly showing in your example, your using FileExists() here and your Function name is called DirExists()...

[JerryD]

Errrr, maybe I'm missing something here, but won't all these functions return TRUE if a FILE exists that isn't a directory like the file "c:\WINDOWS\system32\drivers\etc\hosts" ? Maybe this would be a bit more reliable:

Func DirExists ( $sDirPath )
        If FileExists($sDirPath) AND StringInString(FileGetAttrib($sDirPath), 'D') Then
                Return 1
        Else
                Return 0
        EndIf
EndFunc

Even the DOS Shell calls would return true for the file quoted above. You'd want to add a " /D" parameter to the DIR command, but I don't see the need to shell out for this, and it's probably a lot slower too!

J

[SmOke_N]

Errrr, maybe I'm missing something here, but won't all these functions return TRUE if a FILE exists that isn't a directory like the file "c:\WINDOWS\system32\drivers\etc\hosts" ? Maybe this would be a bit more reliable:

Func DirExists ( $sDirPath )
        If FileExists($sDirPath) AND StringInString(FileGetAttrib($sDirPath), 'D') Then
                Return 1
        Else
                Return 0
        EndIf
EndFunc

Even the DOS Shell calls would return true for the file quoted above. You'd want to add a " /D" parameter to the DIR command, but I don't see the need to shell out for this, and it's probably a lot slower too!

J

That's a good point

[Simucal]

it does too. try it. it works perfecly.

Doing things in 3 lines is no fun.

I think the exact opposite is true. Doing things in as few lines as possible is fun.

[spyrorocks]

what ever. I just though i would try something.