Visual Basic Forum for Visual Basic Programmers VB

[Avis]

[vb:1:cf6a2aeaea]Public Function CheckDir(Byval sPath As String) As Boolean
If Dir(sPath, vbDirectory) = "" Then CheckDir = False Else CheckDir = True
End Function[/vb:1:cf6a2aeaea]

Usage:

[vb:1:cf6a2aeaea]GetAns = CheckDir(App.Path & "\SomeDirectory")
Msgbox GetAns[/vb:1:cf6a2aeaea]
_________________
Code Snippets, Tutorials, Utilities, Controls

Low cost Web Hosting
Hosting starts at as low as $4 per year!

Always follow posting guidelines
Put your VB code in [vb ] your code [ /vb] tags!

[P.T.A.M.]

Simpler "

[vb:1:bdd711827a]Public Function CheckDir(ByVal sPath As String) As Boolean
If Dir(sPath, vbDirectory) <> "" Then CheckDir = True
End Function[/vb:1:bdd711827a]

Since the default value is 0 (False) you don't need to set it
_________________
No one is completely useless. They can at least be an example of what to avoid.

[rbgCODE]

snap
_________________
'><>
'rBg
'><>

[vbman995]

Hey..... Newbies, this is great code...you can use it to see if a file exists before trying to open it with your program.....

[i_am_doofus]

Even easier, add reference to Microsoft Scripting Runtime and use FileSystemObject.FolderExists