Filename with wildcard

[tfloyd]

How can I get a changing filename to email that file daily.
this is the line in the VBscrtipt.

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.Getfile("C:\WINNT\fontstore\Logs\*.zzr")

I know this object does not allow for wildcards. Anyway around that?


I was able to capture the filename with the MacroScheduler script but can't pass that to the VBscript.

GetFileList>C:\WINNT\fontstore\Logs\Travis*.ZZR,logfile1

[Marcus Tettmar]

Why can't you pass the filename to the VBScript?

[tfloyd]

Ok, how do I send the Logfile1 MAcro Scheduler variable to the VB script to be assigned to sattachment. When I try

sAttachment = logfile1

I get the error "you must provide a file path"

I edited the code for the important segments.

>>

GetFileList>C:\WINNT\fontstore\Logs\Travis*.ZZR,logfile1

VBSTART

sAttachment = "C:\logfile.zzr"

Set AttachME = doc.CreateRichTextItem("Attachment")
Call doc.SEND(False, arrRecipients)

VBEND
VBRUN>SendNotesEmail

[Marcus Tettmar]

What you do is add parameters to the subroutine/function and pass them in VBRun/VBEval. So here's a skeleton:

Code: Select all

VBSTART
Sub SendNotesEmail(LogFile)

   'bla bla
   sAttachment = LogFile

   'bla bla

End Sub
VBEND

Let>logfile1=c:\whatever....
VBRun>SendNotesEmail,logfile1

[tfloyd]

Thanks, it worked of course.