quick dir question

[fallnwrld]

Ok this code below works for a file
If Dir$("\windows\car") <> "" Then
msgbox "The File Car Exist"
Else
msgbox "The File Doesn't Exist"
end if

-------

But i don't want to do it for a file i want to do it with a dir.

If Dir$("\windows\") <> "" Then
msgbox "The File Car Exist"
Else
msgbox "The File Doesn't Exist"
end if

If it exist, I get the right msg box...if it doesnt exist....i get a error that path doesnt exist.....y doesnt it skip to the else statement like the file does? And how can i fix it....thanks!

[Sophtware]

Try using the "Not" Operator, hmm might help.

[gfk]

If Dir$("\windows\",vbDirectory) <> "" Then 
    MsgBox "The File Car Exist" 
Else 
    MsgBox "The File Doesn't Exist" 
End If

...might work. The Dir function has a second optional parameter.

[fallnwrld]

Nope tried both idea's didnt work...the first idea...it just reversed the error...and with the 2nd idea, same error.....keep it coming guys im sure its something small, but i can't just find it!

[gfk]

Here's the exact code from my program which is tried and tested and DOES work in VB6.

If Dir(App.Path & "\Data\", vbDirectory) = "" Then MkDir App.Path & "\Data"

That code checks to see if a directory exists, and if it doesn't it creates it.

I just noticed you're using VB3 which might be the problem. Unfortunately VB6 is all I have, so I can't test it.

If the vbDirectory constant isn't defined in VB3, then just substitute it for it's value (16). If THAT doesn't work then, I dunno.

[gfk]

I wonder if, when you're referring to folders, you have to specify the FULL path - i.e. 'C:\WINDOWS\' instead of '\WINDOWS\'??

[Zeee]

You might want to try this:

dim temp as string

on error resume next

temp = Dir("\windows\",vbDirectory)
if err <> 0 then
msgbox "Does not exist..."
else
msgbox "Exists...."
end if

or using File System Object:

dim fso as variant

set fso = createobject("FileSystemObjects")

if fso.FolderExists("\windows\") then
msgbox "Exists..."
else
msgbox "Does not exist...."
end if


hope this helps....

[fallnwrld]

thanks a lot guys but zee's worked great, u da man!