folde checking problem

[muralidhary]

hello
i have a problem with checking
whether a folder exists or not
i use the following code


Private Sub Form_Load()
Dim fol As String
fol = Dir$("C:\dhar\")

If fol = "" Then
MsgBox "Folder does not exist!"
Else
MsgBox "Folder Exist!"
End If

End Sub

but it is giving folder exists
iff there are some files in the folder
if there are no files in the folder then it is giving
folder does not exist
how can i overcome this
can anybody help me

[Kaverin]

http://www.vbforums.com/showthread.p...063#post524063

[Hack]

Thanks Kaverin, I've been looking for a routine like this.

muralidhary: Good question.