VB script in Acces

[lbradio]

Please help me out...

On a network share I have pictures of employees. Name of picture is "<employeenumber>.gif".
In Access I have a table containing employeenumber, full name etc.

I like to have a query verify if every employee has it's own picture (why? Because it is used on an intranet). The output should contain the employeenumber and full name of persons without a picture.

Now I tried something with:
test: Len(([Dir$](('O:\picture\') & [employeenumber] & ('.gif')))).
where "O:\picture" is the share on the network which contains the images and "employeenumber" is a field in a table.
But this isn't working.

What am I doing wrong?

[Static]

Len(Dir("O:\picture\" & [employeenumber] & ".gif"))

[lbradio]

Thanks for the reply,

I tried the suggested line, but now I get an error:
Undefined function Dir.

[Static]

where are you calling this???

right in a Query?

[Static]

ok.. well I guess u cant call dir in a query.. solution

open a module and drop this in:

Public Function FileExists(sFile As String) As Boolean
    If Len(Dir(sFile)) <> 0 Then
        FileExists = True
    End If
End Function

the u call it like this...
FileExists("O:\picture\" & [employeenumber] & ".gif")

it will return -1 if its there 0 if not...

[lbradio]

Yes,
This one worked.

Thank you very much for assisting me.

[Static]

youre welcome




please... click on thread tools > mark thread resolved. that way others know u have your answer. Thanks!