how to search to see if a folder exists 2

[sm2605]

Hi, i would like to find out how to search a particular directory to see if a particular folder exists. Here is what i have so far:

dataDirectory = getKey("software\financial\Paths\User Path&quot

'check to see if datadirectory\Temp Folder exists

 

[jcrater]

dim fso as FileSystemObject

Set fso = New FileSystemObject
If Not fso.FolderExists(vntPath) Then
'some action taken
End If

you'll have to add a reference to the Microsoft Scripting Runtime

 

[DrJavaJoe]

Tons of threads on this here's a good one to see if file exist, it just needs modification.
thread222-358873

 

[LPlates]

You dont need to reference F.S.O., try this instead...

Private Sub Command1_Click()
MsgBox DirExists ("C:\windows&quot
End Sub

Public Function DirExists(ByVal Directory As String) As Boolean
If Dir(strPath, vbDirectory) <> &quot;&quot; Then DirExists = True dir exists
End Function

 

[sm2605]

Thank you!!!

 

[cpsullivan007]

In referance to LPlates post of code:


Public Function DirExists(ByVal Directory As String) As Boolean
If Dir(strPath, vbDirectory) <> "" Then DirExists = True dir exists
End Function

CHANGES in BOLD TO MAKE IT WORK BELOW:

Public Function DirExists(ByVal strPath As String) As Boolean
If Dir(strPath, vbDirectory) <> "" Then DirExists = True 'dir exists
End Function

Sorry, just wanted to help and put my two cents worth..