application.filesearch vista problem

[cubby]

I have code using application.filesearch that has worked great until installing on vista computer. The code does not get an error but always get an = "false" result.
Any ideas?

 

[AHJ1]

Could you post the code?

 

[cubby]

This code has worked for a long time and continues to work on the XP computers. With Vista it returns "Found = false"
when it should be = true.

With Application.FileSearch
.NewSearch
.LookIn = PicPath
.FileName = [SOCIAL_SEC] & ".jpg"
.Execute
Found = .FoundFiles.Count

If Found Then
[emppic].Picture = PicPath & [SOCIAL_SEC] & ".jpg" 'found picture
Else
[emppic].Picture = PicPath & "SAC.bmp" 'default
End If
End With

 

[AHJ1]

Hmmm. What would happen if you forced a type conversion? Maybe forcing the number to a long integer. Something like this?

With Application.FileSearch
        .NewSearch
        .LookIn = PicPath
        .FileName = [SOCIAL_SEC] & ".jpg"
        .Execute
        Found = clng(.FoundFiles.Count)
    
        If Found Then
            [emppic].Picture = PicPath & [SOCIAL_SEC] & ".jpg" 'found picture
        Else
            [emppic].Picture = PicPath & "SAC.bmp"  'default
        End If
    End With