Find a file in any subdirectory on c:\
Posted on 2004-08-09
I am trying to find a specific file (template.dot) anywhere on a users c:.
If the file is anywhere on the user's c: drive submit an e mail to me.
Trouble with my script is I am getting a report even when the file is not on the drive.
Any help would be great.
Sub Click(Source As Button)
PPMTemp = Dir$("C:\",16) & "NewTemplate.dot"
Print "Checking of C drive complete"
If PPMTemp <> "" Then Call SendReport
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "Jane Doe"
doc.Subject = "A copy of the template is on my C drive."
Call doc.Send( False )