Dir()

Tim

This is right out of VBA help file.

Sub ShowFolderList(folderspec)
   Dim fs, f, f1, fc, s
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFolder(folderspec)
   Set fc = f.SubFolders
   For Each f1 in fc
       s = s & f1.name
       s = s &  vbCrLf
   Next
   MsgBox s
End Sub

If you don't want the whole list you could modifiy it to say:

For Each fl in fc
  If fl.name = "ObjectFileName" Then
     MsgBox "File Is There"
  Else
     MsgBox "Not In This Bunch"
  End If
Next

Dim TestStr as string
TestStr = ""
on error resume next
teststr = dir("c:\the folder\nul")
on error goto 0

if teststr = "" then
 'doesn't exist
else
 'exists
end if

==========
But maybe you don't have to check.  Maybe it would be enough to just create the
folder (ignoring any error if the folder is already there):

on error resume next
mkdir "C:\the folder"
on error goto 0

Function FolderExists(strFolderPath As String) As Boolean
 On Error Resume Next
 If Len(strFolderPath) > 0 Then
   FolderExists = ((GetAttr(strFolderPath) And vbDirectory) > 0)
   Err.Clear
 End If
End Function

RBS

Just another of many...

Function IsFolder(S As String) As Boolean
 IsFolder = CreateObject("Scripting.FileSystemObject").FolderExists(S)
End Function