Else statement

[Jay=B]

For the code below where would I put an Else statement if the file was not found.

Private Sub Command1_Click()
Set m_objFSO = New Scripting.FileSystemObject
Screen.MousePointer = vbHourglass
Call CheckFolder("C:\")
Screen.MousePointer = vbDefault
End Sub

Public Sub CheckFolder(sPath As String)
Dim objFolder As Scripting.Folder
Dim objSubDirs As Scripting.Folders
Dim objLoopFolder As Scripting.Folder
Dim myItem As String
Dim res As String
m_objFSO.FileExists = False
Set objFolder = m_objFSO.GetFolder(sPath)

'Does the sPath string require an extra back-slash?
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"

If (m_objFSO.FileExists(sPath & "AcroRd32.exe")) Then
ShellExecute 0&, "OPEN, App.Path & "P:\EngineModelProject\16CM32HFO\16CM32HFOManHours.pdf", "", "", 1
End If
Set objSubDirs = objFolder.SubFolders

'Repeat this Sub for each sub directory in
'the SubFolders collection
For Each objLoopFolder In objSubDirs
CheckFolder objLoopFolder.Path
Next objLoopFolder

'Free up memory
Set objSubDirs = Nothing
Set objFolder = Nothing
End Sub

[Sam Finch]

Just before your End If put an Exit Sub Command, then just before you destroy your scripting objects put the code for not finding the file, Like this

Private Sub Command1_Click() 
Set m_objFSO = New Scripting.FileSystemObject 
Screen.MousePointer = vbHourglass 
Call CheckFolder("C:\") 
Screen.MousePointer = vbDefault 
End Sub 

Public Sub CheckFolder(sPath As String) 
Dim objFolder As Scripting.Folder 
Dim objSubDirs As Scripting.Folders 
Dim objLoopFolder As Scripting.Folder 
Dim myItem As String 
Dim res As String 
m_objFSO.FileExists = False 
Set objFolder = m_objFSO.GetFolder(sPath) 

'Does the sPath string require an extra back-slash? 
If Right(sPath, 1) <> "\" Then sPath = sPath & "\" 

If (m_objFSO.FileExists(sPath & "AcroRd32.exe")) Then 
ShellExecute 0&, "OPEN, App.Path & "P:\EngineModelProject\16CM32HFO\16CM32HFOManHours.pdf", "", "", 1 
         '    *
         '  *
Exit Sub '******************  LOOK
         '  *
         '    *
End If 
Set objSubDirs = objFolder.SubFolders 

'Repeat this Sub for each sub directory in 
'the SubFolders collection 
For Each objLoopFolder In objSubDirs 
CheckFolder objLoopFolder.Path 
Next objLoopFolder 

'            ******************************
'            *Put File not found code Here*
'            ******************************

'Free up memory 
Set objSubDirs = Nothing 
Set objFolder = Nothing 
End Sub

Hope this helps